#!/usr/bin/env perl
use warnings; use strict;
use rlib '.'; use Helper;

no warnings 'redefine';

my $test_prog = prog_file('TCPPack.pm');
run_debugger("$test_prog");

$test_prog = prog_file('gcd.pl');
run_debugger("$test_prog 3 5", 'fin2.cmd');

$test_prog = prog_file('gcd.pl');
run_debugger("$test_prog 3 5", 'fin3.cmd');

done_testing();