X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=t%2FZOOM-IRSpy.t;h=5847b0b2f77ab1c5a5ec903663498d8e6d367fbd;hp=e9bd6123b1da657598a50ac8c7595274a37152b5;hb=32416c64aa62a7dbec6e04a17bf1fc1610286a48;hpb=d3725cdc5d765df0eff9c525c6e3de015c8ca47c

diff --git a/t/ZOOM-IRSpy.t b/t/ZOOM-IRSpy.t
old mode 100644
new mode 100755
index e9bd612..5847b0b
--- a/t/ZOOM-IRSpy.t
+++ b/t/ZOOM-IRSpy.t
@@ -1,11 +1,17 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More qw(no_plan);
-
 BEGIN {
-    use_ok('ZOOM::IRSpy');
+    system( "zoomsh", "-e", "open localhost:8018", "quit" );
+    if ($?) {
+        print "1..0 # skip no zebra running on localhost:8018\n";
+        exit;
+    }
 }
 
+use Test::More tests => 3;
+use lib './lib';
+use_ok('ZOOM::IRSpy');
+
 # Insert your test code below, the Test::More module is use()ed here so read
 # its man page ( perldoc Test::More ) for help writing this test script.
 
@@ -17,7 +23,7 @@ my $irspy_to_zeerex_xsl = 'xsl/irspy2zeerex.xsl';
 $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
   if $irspy_to_zeerex_xsl;
 
-my $dbname = 'localhost:8018/IR-Explain---1';
+my $dbname =  ZOOM::IRSpy::connect_to_registry();
 my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
 
 isa_ok( $spy, 'ZOOM::IRSpy' );
@@ -25,7 +31,6 @@ isa_ok( $spy, 'ZOOM::IRSpy' );
 # test for failure if template not exists
 eval {
     $ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
-    $ZOOM::IRSpy::debug = 1;
     $ZOOM::IRSpy::xslt_max_depth = 100;
     $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
 };