1 2 3 4 5 6 7 8 9 10 11 12
#!perl use strict; use warnings; use Test::More tests => 1; open my $f, '<', "btparse/src/bt_config.h"; while (<$f>) { diag $_ if /#define/; } close $f; ok(1);