Include tests of yaz_diag_srw_to_bib1() and yaz_diag_bib1_to_srw()

Emit ok 1..4

diff --git a/test.pl b/test.pl
index a7184be..7c28f91 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..4\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Net::Z3950::SimpleServer;
 $loaded = 1;
@@ -14,6 +14,12 @@ print "ok 1\n";
 
 ######################### End of black magic.
 
+print "not " if Net::Z3950::SimpleServer::yaz_diag_srw_to_bib1(11) != 3;
+print "ok 2\n";
+
+print "not " if Net::Z3950::SimpleServer::yaz_diag_bib1_to_srw(3) != 11;
+print "ok 3\n";
+
 # Insert your test code below (better if it prints "ok 13"
 # (correspondingly "not ok 13") depending on the success of chunk 13
 # of the test code):
@@ -76,6 +82,8 @@ sub my_close_handler {
                print "\nEverything is ok!\n";
        }
        print "-----------------------------------------------\n";
+       print "not " if $error;
+       print "ok 4\n";
 }
 
 
@@ -99,4 +107,3 @@ if (!defined($pid = fork() )) {
        print CLIENT "quit\n";
        close(CLIENT) or die "Couldn't close: $!\n";
 }
-