1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
################################################################################
#
# Copyright (c) 2002-2024 Marcus Holland-Moritz. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
################################################################################
use Test;
use Convert::Binary::C @ARGV;
$^W = 1;
BEGIN {
@files = <examples/*.pl>;
plan tests => 1 + 3*@files;
}
ok( @files > 0 );
$perl = "$^X -w " . join( ' ', map qq["-I$_"], @INC );
for my $ex ( @files ) {
my $out = '';
my $open;
print "# checking '$ex'\n";
if( $open = open FILE, "$perl $ex |" ) {
$out = do { local $/; <FILE> };
close FILE;
}
ok( $open );
ok( length($out) > 0 );
ok( $?, 0 );
}
|
