/trunk/Examples/test-suite/perl5/enum_template_runme.pl
Perl | 12 lines | 7 code | 3 blank | 2 comment | 0 complexity | 4a9c4d1b5033a6ad7860a34978d80546 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Test::More tests => 4;
- BEGIN { use_ok('enum_template') }
- require_ok('enum_template');
- # adapted from ../python/enum_template_runme.py
- is(enum_template::MakeETest(), 1);
- is(enum_template::TakeETest(0), undef);