From 92ede80e4bf3448ed0746fb1ca82752c776f1b48 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Tue, 3 Aug 2010 23:07:18 -0400
Subject: [PATCH] Unit tests

- Fixed export.yaml.t because 'tail +2 file' does not work on tasktools.org.
---
 src/tests/export.yaml.t | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

diff --git a/src/tests/export.yaml.t b/src/tests/export.yaml.t
index 52d9058a3..6ce6d49c5 100755
--- a/src/tests/export.yaml.t
+++ b/src/tests/export.yaml.t
@@ -28,7 +28,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 21;
+use Test::More tests => 22;
 
 # Create the rc file.
 if (open my $fh, '>', 'export.rc')
@@ -41,7 +41,7 @@ if (open my $fh, '>', 'export.rc')
 # Add two tasks, export, examine result.
 qx{../task rc:export.rc add priority:H project:A one};
 qx{../task rc:export.rc add +tag1 +tag2 two};
-qx{../task rc:export.rc export.yaml | tail +2 > ./export.txt};
+qx{../task rc:export.rc export.yaml > ./export.txt};
 
 my @lines;
 if (open my $fh, '<', './export.txt')
@@ -49,22 +49,24 @@ if (open my $fh, '<', './export.txt')
   @lines = <$fh>;
   close $fh;
 }
-like ($lines[0],  qr/^%YAML 1.1$/,            'export.yaml line 0');
-like ($lines[1],  qr/^---$/,                  'export.yaml line 1');
-like ($lines[2],  qr/^  task:$/,              'export.yaml line 2');
-like ($lines[3],  qr/^    description: one$/, 'export.yaml line 3');
-like ($lines[4],  qr/^    entry: \d+$/,       'export.yaml line 4');
-like ($lines[5],  qr/^    priority: H$/,      'export.yaml line 5');
-like ($lines[6],  qr/^    project: A$/,       'export.yaml line 6');
-like ($lines[7],  qr/^    status: pending$/,  'export.yaml line 7');
-like ($lines[8],  qr/^    uuid: .+$/,         'export.yaml line 8');
-like ($lines[9],  qr/^  task:$/,              'export.yaml line 9');
-like ($lines[10], qr/^    description: two$/, 'export.yaml line 10');
-like ($lines[11], qr/^    entry: \d+$/,       'export.yaml line 11');
-like ($lines[12], qr/^    status: pending$/,  'export.yaml line 12');
-like ($lines[13], qr/^    tags: tag1,tag2$/,  'export.yaml line 13');
-like ($lines[14], qr/^    uuid: .+$/,         'export.yaml line 14');
-like ($lines[15], qr/^\.\.\.$/,               'export.yaml line 15');
+
+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');
 
 # Cleanup.
 unlink 'export.txt';