projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add Record::OPAC and Search::Bath tests.
[irspy-moved-to-github.git]
/
t
/
ZOOM-IRSpy.t
diff --git
a/t/ZOOM-IRSpy.t
b/t/ZOOM-IRSpy.t
index
2ed94b3
..
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';
# 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');
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;
$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' );
my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
isa_ok( $spy, 'ZOOM::IRSpy' );
@@
-25,6
+25,7
@@
isa_ok( $spy, 'ZOOM::IRSpy' );
# test for failure if template not exists
eval {
$ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
# test for failure if template not exists
eval {
$ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
+ $ZOOM::IRSpy::xslt_max_depth = 100;
$spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
};
$spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
};