Commit | Line | Data |
7158714d |
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use Test::More 'no_plan'; |
5 | $| = 1; |
6 | |
7 | |
8 | |
9 | # =begin testing |
10 | { |
11 | use_ok( 'Text::Tradition::Witness', "can use module" ); |
12 | |
13 | my @text = qw( This is a line of text ); |
14 | my $wit = Text::Tradition::Witness->new( |
15 | 'sigil' => 'A', |
16 | 'text' => \@text, |
17 | ); |
18 | is( ref( $wit ), 'Text::Tradition::Witness', 'Created a witness' ); |
19 | if( $wit ) { |
20 | is( $wit->sigil, 'A', "Witness has correct sigil" ); |
21 | is( join( ' ', @{$wit->text} ), join( ' ', @text ), "Witness has correct text" ); |
22 | } |
23 | } |
24 | |
25 | |
26 | |
f025e303 |
27 | # =begin testing |
28 | { |
29 | use Text::Tradition; |
30 | |
31 | my @text = qw( This is a line of text ); |
32 | my $wit = Text::Tradition::Witness->new( |
33 | 'sigil' => 'A', |
34 | 'text' => \@text, |
35 | 'identifier' => 'test witness', |
36 | ); |
37 | my $jsonstruct = $wit->export_as_json; |
38 | is( $jsonstruct->{'id'}, 'A', "got the right witness sigil" ); |
39 | is( $jsonstruct->{'name'}, 'test witness', "got the right identifier" ); |
40 | is( scalar @{$jsonstruct->{'tokens'}}, 6, "got six text tokens" ); |
41 | foreach my $idx ( 0 .. $#text ) { |
42 | is( $jsonstruct->{'tokens'}->[$idx]->{'t'}, $text[$idx], "tokens look OK" ); |
43 | } |
44 | |
45 | my @ctext = qw( when april with his showers sweet with fruit the drought of march |
46 | has pierced unto the root ); |
47 | my $trad = Text::Tradition->new( |
48 | 'input' => 'CollateX', |
49 | 'file' => 't/data/Collatex-16.xml' ); |
50 | |
51 | $jsonstruct = $trad->witness('A')->export_as_json; |
52 | is( $jsonstruct->{'id'}, 'A', "got the right witness sigil" ); |
53 | is( $jsonstruct->{'name'}, undef, "got undef for missing identifier" ); |
54 | is( scalar @{$jsonstruct->{'tokens'}}, 17, "got all text tokens" ); |
55 | foreach my $idx ( 0 .. $#ctext ) { |
56 | is( $jsonstruct->{'tokens'}->[$idx]->{'t'}, $ctext[$idx], "tokens look OK" ); |
57 | } |
58 | } |
59 | |
60 | |
61 | |
7158714d |
62 | |
63 | 1; |