| File: | t/01.run.t |
| Coverage: | 96.8% |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | 1 1 1 | 11539 9416 8 | use Test::More tests => 7; | ||||
| 2 | 1 1 1 | 255 1 35 | use Data::Dumper; | ||||
| 3 | 1 1 1 | 4 2 17 | use File::Spec; | ||||
| 4 | |||||||
| 5 | BEGIN { | ||||||
| 6 | 1 | 6 | use_ok( 'Pipeline::Simple' ); | ||||
| 7 | } | ||||||
| 8 | |||||||
| 9 | sub test_input_file { | ||||||
| 10 | 1 | 43 | return File::Spec->catfile('t', 'data', @_); | ||||
| 11 | } | ||||||
| 12 | |||||||
| 13 | 1 | 108745 | diag( "Testing Pipeline::Simple run from file" ); | ||||
| 14 | |||||||
| 15 | |||||||
| 16 | # reading in a configuration | ||||||
| 17 | 1 | 122 | my $dir = "/tmp/pl$$"; | ||||
| 18 | 1 | 5 | my $pl = Pipeline::Simple->new | ||||
| 19 | (config=>test_input_file('string_manipulation.xml'), | ||||||
| 20 | dir=>$dir, verbose=> -1); | ||||||
| 21 | # verbose=> 1); | ||||||
| 22 | #ok $pl->dir('/tmp/pl'), 'dir()'; | ||||||
| 23 | 1 | 10 | my $string = $pl->stringify; | ||||
| 24 | #print $string; | ||||||
| 25 | 1 | 17 | ok $string =~ /# ->/, 'stringify())'; | ||||
| 26 | 1 | 662 | ok $pl->each_step, 'each_step'; | ||||
| 27 | 1 | 273 | ok $pl->run, 'run())'; | ||||
| 28 | #print Dumper $pl; | ||||||
| 29 | 1 | 339 | my $dot = $pl->graphviz; | ||||
| 30 | 1 | 17169 | ok $dot =~ /^digraph /, 'graphviz()'; | ||||
| 31 | |||||||
| 32 | 1 | 513 | ok $pl->start('s3'), 'start()'; | ||||
| 33 | 1 | 184 | ok$pl->stop('s4'), 'stop()'; | ||||
| 34 | |||||||
| 35 | END { | ||||||
| 36 | 1 | 211 | `rm -rf $dir` if $pl->verbose <0; | ||||
| 37 | } | ||||||