#!/usr/bin/env perl

use ExtUtils::testlib;
use Data::Dumper;
use myClibs;

print "Compiling C program...\n";
print qx{compile.sh};

my $test = [ 1, 2, 3, 4, 5, 6, 9];

ArrayTest::print_array_char( "revendar" );
print "------------------------------------------------\n";
ArrayTest::print_array_char( @$test  );
print "------------------------------------------------\n";
ArrayTest::print_array_int( "revendar",8 );
print "------------------------------------------------\n";
ArrayTest::print_array_int( @$test ,8 );