Commit | Line | Data |
12523041 |
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 File::Temp; |
12 | use Text::Tradition; |
13 | use Text::Tradition::Stemma; |
14 | use_ok 'Text::Tradition::Directory'; |
15 | |
16 | my $fh = File::Temp->new(); |
17 | my $file = $fh->filename; |
18 | $fh->close; |
19 | my $dsn = "dbi:SQLite:dbname=$file"; |
20 | |
21 | my $d = Text::Tradition::Directory->new( 'dsn' => $dsn, |
22 | 'extra_args' => { 'create' => 1 } ); |
23 | is( ref $d, 'Text::Tradition::Directory', "Got directory object" ); |
24 | |
25 | my $t = Text::Tradition->new( |
26 | 'name' => 'inline', |
27 | 'input' => 'Tabular', |
28 | 'file' => 't/data/simple.txt', |
29 | ); |
30 | my $uuid = $d->save_tradition( $t ); |
31 | ok( $uuid, "Saved test tradition" ); |
32 | |
33 | my $s = Text::Tradition::Stemma->new( |
34 | 'collation' => $t->collation, |
35 | 'dotfile' => 't/data/simple.dot' ); |
36 | my $sid = $d->save_stemma( $s ); |
37 | ok( $sid, "Saved test stemma" ); |
38 | |
39 | is( $d->tradition( $uuid ), $t, "Correct tradition returned for id" ); |
40 | is( $d->stemma( $uuid ), $s, "Correct stemma returned for id" ); |
41 | is( scalar $d->tradition_ids, 1, "Only one tradition in DB" ); |
42 | |
43 | # Connect to a new instance |
44 | my $e = Text::Tradition::Directory->new( 'dsn' => $dsn ); |
45 | is( scalar $e->tradition_ids, 1, "One tradition preloaded from DB" ); |
46 | my $te = $e->tradition( $uuid ); |
47 | is( $te->name, $t->name, "New instance returns correct tradition" ); |
48 | my $se = $e->stemma( $uuid ); |
49 | is( $se->graph, $s->graph, "New instance returns correct stemma" ); |
50 | is( $e->tradition( 'NOT-A-UUID' ), undef, "Undef returned for non-tradition" ); |
51 | is( $e->stemma( 'NOT-A-UUID' ), undef, "Undef returned for non-stemma" ); |
52 | $te->name( "Changed name" ); |
53 | my $new_id = $e->save_tradition( $te ); |
54 | is( $new_id, $uuid, "Updated tradition ID did not change" ); |
55 | |
56 | my $f = Text::Tradition::Directory->new( 'dsn' => $dsn, 'preload' => 0 ); |
57 | is( scalar $f->tradition_ids, 0, "No traditions preloaded from DB" ); |
58 | ### TODO This doesn't work, as I cannot get an object scope in the |
59 | ### 'tradition' wrapper. |
60 | # my $tf = $f->tradition( $uuid ); |
61 | # is( $tf->name, $t->name, "Next instance returns correct tradition" ); |
62 | # is( $tf->name, "Changed name", "Change to tradition carried through" ); |
63 | } |
64 | |
65 | |
66 | |
67 | |
68 | 1; |