1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use strict;
use warnings;
use Test::More;
use Catmandu::Fix;
# replace with the actual test
ok 1;
done_testing;
# my $pkg;
# BEGIN {
# $pkg = 'Catmandu::Fix::viaf_search';
# use_ok $pkg;
# }
# SKIP : {
# skip "Need network set \$ENV{RELEASE_TESTING}",1 unless $ENV{RELEASE_TESTING};
# my $record = {
# 'authorName' => 'Jane Austen'
# };
# my $fixer = Catmandu::Fix->new(fixes => ['viaf_search(authorName)']);
# $fixer->fix($record);
# isa_ok($record->{'authorName'}, 'ARRAY');
# }
# done_testing 2;
|
