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 | |
7158714d |
27 | |
28 | 1; |