epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Added test for msi -o option.

Browse Source
This commit is contained in:
Andrew Johnson
2012-06-01 14:16:13 -05:00
parent efec22eea5
commit 37a9efa290
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/dbtools/test/msi.plt
+11 -5
View File
@@ -13,15 +13,21 @@ use FindBin qw($Bin); # To find the msi executable
use strict;
use Test;
BEGIN {plan tests => 6}
BEGIN {plan tests => 7}
ok(msi('-I.. ../t1-template.txt'), slurp('../t1-result.txt'));
ok(msi('-I.. -S ../t2-substitution.txt'), slurp('../t2-result.txt'));
ok(msi('-I.. -S ../t3-substitution.txt'), slurp('../t3-result.txt'));
ok(msi('-g -I.. -S ../t4-substitution.txt'),slurp('../t4-result.txt'));
ok(msi('-I .. ../t1-template.txt'), slurp('../t1-result.txt'));
ok(msi('-I.. -S ../t2-substitution.txt'), slurp('../t2-result.txt'));
ok(msi('-I. -I.. -S ../t3-substitution.txt'), slurp('../t3-result.txt'));
ok(msi('-g -I.. -S ../t4-substitution.txt'), slurp('../t4-result.txt'));
ok(msi('-S ../t5-substitute.txt ../t5-template.txt'), slurp('../t5-result.txt'));
ok(msi('-S ../t6-substitute.txt ../t6-template.txt'), slurp('../t6-result.txt'));
# Check -o works
my $out = 't7-output.txt';
unlink $out;
msi("-I.. -o $out ../t1-template.txt");
ok(slurp($out), slurp('../t1-result.txt'));
# Support routines