|
Revision 2116, 452 bytes
(checked in by karpet, 7 months ago)
|
restructure tests and add substr to namedbuffer debugging
|
| Line | |
|---|
| 1 |
#!/usr/bin/perl |
|---|
| 2 |
use strict; |
|---|
| 3 |
use warnings; |
|---|
| 4 |
use Test::More tests => 2; |
|---|
| 5 |
use SwishTestUtils; |
|---|
| 6 |
|
|---|
| 7 |
# test header read/write |
|---|
| 8 |
ok( my $config = SwishTestUtils::slurp('example/swish.xml'), |
|---|
| 9 |
"slurp example/swish.xml" ); |
|---|
| 10 |
system("./swish_header example/swish.xml") |
|---|
| 11 |
and die "can't run swish_header: $!"; |
|---|
| 12 |
ok( my $header = SwishTestUtils::slurp('swish_header.xml'), |
|---|
| 13 |
"slurp swish_header.xml" ); |
|---|
| 14 |
|
|---|
| 15 |
# TODO find specific patterns to compare in $config and $header |
|---|
| 16 |
|
|---|
