projects
/
ferlib2koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
use configuration from /etc/koha/sites/fer/koha-conf.xml
[ferlib2koha.git]
/
t
/
FERWeb.t
1
#!/usr/bin/perl
2
use strict;
3
use warnings;
4
5
use Test::More tests => 4;
6
use Data::Dump qw(dump);
7
8
use lib 'lib';
9
10
use_ok 'FERWeb';
11
12
my $o = new_ok 'FERWeb';
13
14
my $code = $ARGV[0] || 'dpavlin'; # JMBAG
15
16
ok my $r = $o->getinfobycode( $code ), "JMBAG $code";
17
diag dump $r;
18
19
cmp_ok $r->{code}, 'eq', $code, "code $code";