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:
@@ -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';
|
||||
|
||||
Reference in New Issue
Block a user