perl5: Enable more testcases
This commit is contained in:
parent
5840aca0d9
commit
1d617c2b9b
2 changed files with 22 additions and 0 deletions
|
|
@ -16,11 +16,13 @@ CPP_TEST_CASES += \
|
|||
li_cstring \
|
||||
li_cdata_carrays_cpp \
|
||||
li_reference \
|
||||
memberin1 \
|
||||
director_nestedmodule \
|
||||
|
||||
C_TEST_CASES += \
|
||||
li_cstring \
|
||||
li_cdata_carrays \
|
||||
multivalue \
|
||||
|
||||
include $(srcdir)/../common.mk
|
||||
|
||||
|
|
|
|||
20
Examples/test-suite/perl5/multivalue_runme.pl
Normal file
20
Examples/test-suite/perl5/multivalue_runme.pl
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 8;
|
||||
|
||||
BEGIN { use_ok('multivalue') }
|
||||
require_ok('multivalue');
|
||||
|
||||
my ($q, $r);
|
||||
|
||||
($q, $r) = multivalue::divide_l(37, 5);
|
||||
is($q, 7, "Test divide_l quotient");
|
||||
is($r, 2, "Test divide_l remainder");
|
||||
|
||||
($q, $r) = multivalue::divide_v(41, 7);
|
||||
is($q, 5, "Test divide_v quotient");
|
||||
is($r, 6, "Test divide_v remainder");
|
||||
|
||||
($q, $r) = multivalue::divide_mv(91, 13);
|
||||
is($q, 7, "Test divide_mv quotient");
|
||||
is($r, 0, "Test divide_mv remainder");
|
||||
Loading…
Add table
Add a link
Reference in a new issue