Do not generate debugging output (as it looks like test failure).

[irspy-moved-to-github.git] / t / ZOOM-IRSpy.t

diff --git a/t/ZOOM-IRSpy.t b/t/ZOOM-IRSpy.t
index e9bd612..daf415f 100644 (file)
--- a/t/ZOOM-IRSpy.t
+++ b/t/ZOOM-IRSpy.t
@@ -1,6 +1,6 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More qw(no_plan);
+use Test::More tests => 3;
 
 BEGIN {
     use_ok('ZOOM::IRSpy');
@@ -17,7 +17,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 +25,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" );
 };