X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=t%2FZOOM-IRSpy.t;h=e6af4bebd2fe97ad405a6c5092505ac630fc153c;hp=2ed94b32fc9242681f699e984dd2c7f4480ac0ad;hb=3a39a0c2a8cc349284099fe678a168166db1f23c;hpb=c9c77e03ca1bc5d584f1818b3ff327b62702a15e diff --git a/t/ZOOM-IRSpy.t b/t/ZOOM-IRSpy.t index 2ed94b3..e6af4be 100644 --- 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,6 +25,8 @@ 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" ); };