File: | t/00.load.t |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | 1 1 1 | 1199 9351 9 | use Test::More tests => 18; | ||||
2 | 1 1 1 | 257 1 34 | use Data::Dumper; | ||||
3 | 1 1 1 | 3 2 17 | use File::Spec; | ||||
4 | |||||||
5 | BEGIN { | ||||||
6 | 1 | 7 | use_ok( 'Pipeline::Simple' ); | ||||
7 | } | ||||||
8 | |||||||
9 | sub test_input_file { | ||||||
10 | 1 | 21 | return File::Spec->catfile('t', 'data', @_); | ||||
11 | } | ||||||
12 | |||||||
13 | 1 | 130520 | diag( "Testing Pipeline::Simple methods in memory" ); | ||||
14 | |||||||
15 | # debug ignores the missing config file | ||||||
16 | 1 | 127 | my $p = Pipeline::Simple->new(debug => 1, verbose => -1); | ||||
17 | 1 | 7 | ok ref($p) eq 'Pipeline::Simple', 'new()'; | ||||
18 | |||||||
19 | 1 | 235 | my $s2 = Pipeline::Simple->new(id=> 'S2', debug => 1, verbose => -1); | ||||
20 | 1 | 7 | ok ref($s2) eq 'Pipeline::Simple', 'new()'; | ||||
21 | |||||||
22 | # method testing | ||||||
23 | 1 | 273 | can_ok $p->add($s2), 'add'; | ||||
24 | 1 | 259 | ok $s2->id() eq 'S2', 'id()'; | ||||
25 | 1 | 177 | ok $s2->name('test'), 'name()'; | ||||
26 | 1 | 265 | ok $s2->name() eq 'test', 'name()'; | ||||
27 | 1 | 184 | ok $s2->path('/opt/scripts'), 'path()'; | ||||
28 | 1 | 177 | ok $s2->path() eq '/opt/scripts', 'path()'; | ||||
29 | 1 | 177 | ok $s2->description('test'), 'description()'; | ||||
30 | 1 | 178 | ok $s2->next_id('test'), 'next_id()'; | ||||
31 | 1 | 180 | ok $s2->dir('data'), 'dir()'; | ||||
32 | 1 | 176 | ok $s2->config(test_input_file('string_manipulation.xml')), 'config()'; | ||||
33 | 1 | 346 | ok $s2->input('test'), 'input()'; | ||||
34 | 1 | 178 | ok $s2->itype('test'), 'itype()'; | ||||
35 | |||||||
36 | #ok $s2->run('test'), 'run()'; | ||||||
37 | 1 | 180 | my $dot = $s2->graphviz; | ||||
38 | 1 | 19735 | ok $dot =~ /^digraph /, 'graphviz()'; | ||||
39 | |||||||
40 | 1 | 394 | ok $s2->each_step, 'each_step'; | ||||
41 | |||||||
42 | |||||||
43 | |||||||
44 | 1 | 180 | my @methods = qw(id name description next_id config add | ||||
45 | run input itype | ||||||
46 | ); | ||||||
47 | 1 | 11 | can_ok 'Pipeline::Simple', @methods; | ||||
48 | |||||||
49 | |||||||
50 | # # Various ways to say "ok" | ||||||
51 | # ok($got eq $expected, $test_name); | ||||||
52 | # | ||||||
53 | # is ($got, $expected, $test_name); | ||||||
54 | # isnt($got, $expected, $test_name); | ||||||
55 | # | ||||||
56 | # # Rather than print STDERR "# here's what went wrong\n" | ||||||
57 | # diag("here's what went wrong"); | ||||||
58 | # | ||||||
59 | # like ($got, qr/expected/, $test_name); | ||||||
60 | # unlike($got, qr/expected/, $test_name); | ||||||
61 | # | ||||||
62 | # cmp_ok($got, '==', $expected, $test_name); | ||||||
63 | # | ||||||
64 | # can_ok($module, @methods); | ||||||
65 | # isa_ok($object, $class); | ||||||
66 | # | ||||||
67 | # pass($test_name); | ||||||
68 | # fail($test_name); | ||||||
69 |