repo.or.cz
/
clive.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Change: replace any dashes with underscores in titles.
[clive.git]
/
t
/
13error.t
blob
0b3d803d023412a1c67bb34fc5e5c2b7b580e4f3
1
#!/usr/bin/env perl -I./t/lib
2
3
use
warnings
;
4
use
strict
;
5
6
use
Test
::
More tests
=>
1
;
7
8
my
$clive
=
"perl -I./blib/lib blib/script/clive -q"
;
9
my
$cmd
=
"
$clive
http://nosupport"
;
10
my
$output
=
qx
(
$cmd
);
11
12
my
$rc
= $
?
>>
8
;
13
ok
(
$rc
==
2
)
14
or
diag
"
$cmd
\n
expected return code 2 (got
$rc
)"
;