Bug 10572: Add phone to message_transport_types table for new installs

[koha.git] / t / Input.t

diff --git a/t/Input.t b/t/Input.t
old mode 100644 (file)
new mode 100755 (executable)
index 8570220..e23f591
--- a/t/Input.t
+++ b/t/Input.t
@@ -1,55 +1,14 @@
-# $Id$
-
-#use strict;
-
-BEGIN { $| = 1; print "1..13\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use C4::Input;
-$loaded = 1;
-print "ok 1\n";
-
-my $TestCount=1;
-
-#-----------------
-# Test ISBN validation
+#!/usr/bin/perl
+#
+# This Koha test module is a stub!  
+# Add more tests here!!!
 
-my $isbn;
+use strict;
+use warnings;
 
-# Good numbers
-foreach $isbn ('0836213092','087784805X','087784805x','1878685899') {
-    PrintNextTestResult ( &checkvalidisbn($isbn), "Good ISBN: $isbn" ) 
-}
+use Test::More tests => 1;
 
-# Bad numbers
-foreach $isbn ('0836213192','087784804X','087784806x','1878685898', 
-               '', ' ', 'abc', '1234567890123') {
-    PrintNextTestResult ( ! &checkvalidisbn($isbn), "Bad ISBN: $isbn" ) 
+BEGIN {
+        use_ok('C4::Input');
 }
 
-
-
-#-----------------------
-sub PrintNextTestResult {
-    # modifies global var $TestCount
-    my ($ThisTestResult, $TestComment )=@_;
-
-    $TestCount++;
-
-    if ( $ThisTestResult ) {
-        print "ok $TestCount\n";
-    } else {
-       print STDERR "\nTest failed: $TestComment\n";
-        print "not ok $TestCount\n";
-    }
-
-} # sub PrintNextTestResult
-
-#-----------------------
-# $Log$
-# Revision 1.2  2002/06/20 18:18:06  tonnesen
-# 47 files to go, 47 files to go, take one down, pass it around...
-# 46 files to go.
-#
-# Revision 1.1.2.1  2002/06/20 15:19:34  amillar
-# Test valid ISBN numbers in Input.pm
-#