Unit Tests

- Implemented YAML import/export roundtrip tests.
- Corrected export.yaml.t regarding headers.
- Modified export.yaml, export.csv and export.ical to clear any
  context.headers messages so they don't interfere with the output.
This commit is contained in:
Paul Beckingham
2010-08-07 22:38:03 -04:00
parent 3ae5b6ddc5
commit 0fe75eeedf
3 changed files with 108 additions and 18 deletions

View File

@@ -28,7 +28,7 @@
use strict;
use warnings;
use Test::More tests => 22;
use Test::More tests => 21;
# Create the rc file.
if (open my $fh, '>', 'export.rc')
@@ -50,23 +50,22 @@ if (open my $fh, '<', './export.txt')
close $fh;
}
like ($lines[0], qr/^Using alternate .+$/, 'export.yaml line 0');
like ($lines[1], qr/^\%YAML 1\.1$/, 'export.yaml line 1');
like ($lines[2], qr/^---$/, 'export.yaml line 2');
like ($lines[3], qr/^ task:$/, 'export.yaml line 3');
like ($lines[4], qr/^ description: one$/, 'export.yaml line 4');
like ($lines[5], qr/^ entry: \d+$/, 'export.yaml line 5');
like ($lines[6], qr/^ priority: H$/, 'export.yaml line 6');
like ($lines[7], qr/^ project: A$/, 'export.yaml line 7');
like ($lines[8], qr/^ status: pending$/, 'export.yaml line 8');
like ($lines[9], qr/^ uuid: .+$/, 'export.yaml line 9');
like ($lines[10], qr/^ task:$/, 'export.yaml line 10');
like ($lines[11], qr/^ description: two$/, 'export.yaml line 11');
like ($lines[12], qr/^ entry: \d+$/, 'export.yaml line 12');
like ($lines[13], qr/^ status: pending$/, 'export.yaml line 13');
like ($lines[14], qr/^ tags: tag1,tag2$/, 'export.yaml line 14');
like ($lines[15], qr/^ uuid: .+$/, 'export.yaml line 15');
like ($lines[16], qr/^\.\.\.$/, 'export.yaml line 16');
like ($lines[0], qr/^\%YAML 1\.1$/, 'export.yaml line 1');
like ($lines[1], qr/^---$/, 'export.yaml line 2');
like ($lines[2], qr/^ task:$/, 'export.yaml line 3');
like ($lines[3], qr/^ description: one$/, 'export.yaml line 4');
like ($lines[4], qr/^ entry: \d+$/, 'export.yaml line 5');
like ($lines[5], qr/^ priority: H$/, 'export.yaml line 6');
like ($lines[6], qr/^ project: A$/, 'export.yaml line 7');
like ($lines[7], qr/^ status: pending$/, 'export.yaml line 8');
like ($lines[8], qr/^ uuid: .+$/, 'export.yaml line 9');
like ($lines[9], qr/^ task:$/, 'export.yaml line 10');
like ($lines[10], qr/^ description: two$/, 'export.yaml line 11');
like ($lines[11], qr/^ entry: \d+$/, 'export.yaml line 12');
like ($lines[12], qr/^ status: pending$/, 'export.yaml line 13');
like ($lines[13], qr/^ tags: tag1,tag2$/, 'export.yaml line 14');
like ($lines[14], qr/^ uuid: .+$/, 'export.yaml line 15');
like ($lines[15], qr/^\.\.\.$/, 'export.yaml line 16');
# Cleanup.
unlink 'export.txt';