The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w

use strict;
use Test::More tests => 2;

use CppGuessTest;

is( CppGuessTest::silly_test( 4 ), 9 );
is( CppGuessTest::useless_test( "foo", "bar" ), "foobar" );