view release on metacpan or  search on metacpan

t/test_cchecker.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::CChecker;

cc;

sub c ($)
{
  my $fh;
  open $fh, '<', "corpus/$_[0].c";
  my $source = do { local $/; <$fh> };
  close $fh;
  $source;
}

subtest 'basic' => sub {

t2/test_cchecker.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use Test::CChecker;

sub c ($)
{
  my $fh;
  open $fh, '<', "corpus/$_[0].c";
  my $source = do { local $/; <$fh> };
  close $fh;
  $source;
}

subtest 'cc' => sub {