tokkee.org
Code
projects
/
nagiosplug.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Import the environ module from gnulib (86ba51)
[nagiosplug.git]
/
tap
/
tests
/
diag
/
test.pl
1
#!/usr/bin/perl
2
3
use warnings;
4
use strict;
5
6
use Test::More;
7
8
my $rc = 0;
9
10
plan tests => 2;
11
12
$rc = diag("A diagnostic message");
13
diag("Returned: $rc");
14
15
ok(1, 'test 1') or diag "ok() failed, and shouldn't";
16
ok(0, 'test 2') or diag "ok() passed, and shouldn't";