From 0d3f6f990d0dac279d239e652ea222af9a62796e Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Mon, 2 Jul 2012 21:47:30 -0400 Subject: [PATCH] Unit Tests - Added unit tests to monitor the behavior of UDAs in various scenarios. --- test/uda_orphan.t | 98 +++++++++++++++++++++++++++++++++++++++++++++++ test/uda_value.t | 65 +++++++++++++++++++++++++++++++ 2 files changed, 163 insertions(+) create mode 100755 test/uda_orphan.t create mode 100755 test/uda_value.t diff --git a/test/uda_orphan.t b/test/uda_orphan.t new file mode 100755 index 000000000..0d2c67259 --- /dev/null +++ b/test/uda_orphan.t @@ -0,0 +1,98 @@ +#! /usr/bin/perl +################################################################################ +## taskwarrior - a command line task list manager. +## +## Copyright 2006-2012, Paul Beckingham, Federico Hernandez. +## +## Permission is hereby granted, free of charge, to any person obtaining a copy +## of this software and associated documentation files (the "Software"), to deal +## in the Software without restriction, including without limitation the rights +## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +## copies of the Software, and to permit persons to whom the Software is +## furnished to do so, subject to the following conditions: +## +## The above copyright notice and this permission notice shall be included +## in all copies or substantial portions of the Software. +## +## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +## OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL +## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +## SOFTWARE. +## +## http://www.opensource.org/licenses/mit-license.php +## +################################################################################ + +use strict; +use warnings; +use Test::More tests => 10; + +# Create the rc file. +if (open my $fh, '>', 'uda.rc') +{ + print $fh "data.location=.\n", + "confirmation=off\n", + "uda.extra.type=string\n", + "uda.extra.label=Extra\n"; + close $fh; + ok (-r 'uda.rc', 'Created uda.rc'); +} + +# Add a task with a defined UDA. +qx{../src/task rc:uda.rc add one extra:foo 2>&1}; +my $output = qx{../src/task rc:uda.rc 1 info 2>&1}; +like ($output, qr/Extra\s+foo/, 'UDA created'); + +# Eliminate the UDA. +if (open my $fh, '>', 'uda.rc') +{ + print $fh "data.location=.\n", + "confirmation=off\n"; + close $fh; + ok (-r 'uda.rc', 'Created uda.rc again'); +} + +# Observe the UDA properly reported by the 'info' command. +$output = qx{../src/task rc:uda.rc 1 info 2>&1}; +like ($output, qr/UDA Orphan\s+foo/, 'UDA orphan shown'); + +# Modify the task, ensure UDA preserved. +qx{../src/task rc:uda.rc 1 modify /one/two/ 2>&1}; +$output = qx{../src/task rc:uda.rc 1 info 2>&1}; +like ($output, qr/extra\s+foo/, 'UDA orphan preserved by modification'); + +# Make sure an orphan UDA is exported. +$output = qx{../src/task rc:uda.rc export 2>&1}; +like ($output, qr/"extra":"two"/, 'UDA orphan exported'); + +# Make sure an orphan UDA can be exported. +if (open my $fh, '>', 'import.txt') +{ + print $fh <&1 >/dev/null}; +like ($output, qr/Imported 1 tasks\./, 'UDA orphan import'); +$output = qx{../src/task rc:uda.rc 2 info 2>&1}; +like ($output, qr/extra\s+bar/, 'UDA orphan imported and visible'); + +# Cleanup. +unlink qw(pending.data completed.data undo.data backlog.data synch.key uda.rc import.txt); +ok (! -r 'pending.data' && + ! -r 'completed.data' && + ! -r 'undo.data' && + ! -r 'backlog.data' && + ! -r 'synch.key' && + ! -r 'uda.rc' && + ! -r 'import.txt', 'Cleanup'); + +exit 0; + diff --git a/test/uda_value.t b/test/uda_value.t new file mode 100755 index 000000000..e1566ae25 --- /dev/null +++ b/test/uda_value.t @@ -0,0 +1,65 @@ +#! /usr/bin/perl +################################################################################ +## taskwarrior - a command line task list manager. +## +## Copyright 2006-2012, Paul Beckingham, Federico Hernandez. +## +## Permission is hereby granted, free of charge, to any person obtaining a copy +## of this software and associated documentation files (the "Software"), to deal +## in the Software without restriction, including without limitation the rights +## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +## copies of the Software, and to permit persons to whom the Software is +## furnished to do so, subject to the following conditions: +## +## The above copyright notice and this permission notice shall be included +## in all copies or substantial portions of the Software. +## +## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +## OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL +## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +## SOFTWARE. +## +## http://www.opensource.org/licenses/mit-license.php +## +################################################################################ + +use strict; +use warnings; +use Test::More tests => 5; + +# Create the rc file. +if (open my $fh, '>', 'uda.rc') +{ + print $fh "data.location=.\n", + "confirmation=off\n", + "uda.smell.type=string\n", + "uda.smell.label=Smell\n", + "uda.smell.values=weak,strong\n"; + close $fh; + ok (-r 'uda.rc', 'Created uda.rc'); +} + +# Add tasks with valid and invalid UDA values. +my $output = qx{../src/task rc:uda.rc add one smell:weak 2>&1}; +like ($output, qr/Created task 1/, 'UDA smell:weak allowed'); + +$output = qx{../src/task rc:uda.rc add two smell:strong 2>&1}; +like ($output, qr/Created task 2/, 'UDA smell:strong allowed'); + +$output = qx{../src/task rc:uda.rc add three smell:toxic 2>&1}; +unlike ($output, qr/Created task 3/, 'UDA smell:toxic disallowed'); + +# Cleanup. +unlink qw(pending.data completed.data undo.data backlog.data synch.key uda.rc); +ok (! -r 'pending.data' && + ! -r 'completed.data' && + ! -r 'undo.data' && + ! -r 'backlog.data' && + ! -r 'synch.key' && + ! -r 'uda.rc', 'Cleanup'); + +exit 0; +