added documentation on cardtype() return values

[Business-CreditCard.git] / test.pl

diff --git a/test.pl b/test.pl
index fcd547a..f96a1d2 100644 (file)
--- a/test.pl
+++ b/test.pl
@@ -6,7 +6,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
-BEGIN { $| = 1; print "1..1\n"; }
+BEGIN { $| = 1; print "1..2\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Business::CreditCard;
 $loaded = 1;