Enhancements - Hooks
- Make the hooks unit tests pass if Lua support is not included. We don't like yellow in the tinderbox.
This commit is contained in:
@@ -46,9 +46,17 @@ if (open my $fh, '>', 'hook')
|
||||
ok (-r 'hook', 'Created hook');
|
||||
}
|
||||
|
||||
# Test the hook.
|
||||
my $output = qx{../task rc:hook.rc _version};
|
||||
like ($output, qr/^marker.+\n\d\.\d+\.\d+\n$/ms, 'Found marker before output');
|
||||
my $output = qx{../task rc:hook.rc version};
|
||||
if ($output =~ /PUC-Rio/)
|
||||
{
|
||||
# Test the hook.
|
||||
$output = qx{../task rc:hook.rc _version};
|
||||
like ($output, qr/^marker.+\n\d\.\d+\.\d+\n$/ms, 'Found marker before output');
|
||||
}
|
||||
else
|
||||
{
|
||||
pass ('Found marker before output - skip: no Lua support');
|
||||
}
|
||||
|
||||
# Cleanup.
|
||||
unlink 'pending.data';
|
||||
|
||||
@@ -47,8 +47,17 @@ if (open my $fh, '>', 'hook')
|
||||
}
|
||||
|
||||
# Test the hook.
|
||||
my $output = qx{../task rc:hook.rc _version};
|
||||
like ($output, qr/\n\d\.\d+\.\d+\nmarker\n$/ms, 'Found marker after output');
|
||||
my $output = qx{../task rc:hook.rc version};
|
||||
if ($output =~ /PUC-Rio/)
|
||||
{
|
||||
# Test the hook.
|
||||
$output = qx{../task rc:hook.rc _version};
|
||||
like ($output, qr/\n\d\.\d+\.\d+\nmarker\n$/ms, 'Found marker after output');
|
||||
}
|
||||
else
|
||||
{
|
||||
pass ('Found marker after output - skipping: no Lua support');
|
||||
}
|
||||
|
||||
# Cleanup.
|
||||
unlink 'pending.data';
|
||||
|
||||
Reference in New Issue
Block a user