From 98cdb6723abf95cf600c547d0b8af2fc8f9cf968 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 10 Aug 2007 16:45:49 +0000 Subject: [PATCH] Include tests of yaz_diag_srw_to_bib1() and yaz_diag_bib1_to_srw() Emit ok 1..4 --- test.pl | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/test.pl b/test.pl index a7184be..7c28f91 100644 --- 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"; } - -- 1.7.10.4