1 ################################################################################
3 # !!!!! Do NOT edit this file directly! !!!!!
5 # Edit mktests.PL and/or parts/inc/uv instead.
7 ################################################################################
10 if ($ENV{'PERL_CORE'}) {
12 @INC = ('../lib', '../ext/Devel/PPPort/t') if -d '../lib' && -d '../ext';
13 require Config; import Config;
15 if (" $Config{'extensions'} " !~ m[ Devel/PPPort ] ) {
16 print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
26 require 'testutil.pl';
38 ok(&Devel::PPPort::sv_setuv(42), 42);
39 ok(&Devel::PPPort::newSVuv(123), 123);
40 ok(&Devel::PPPort::sv_2uv("4711"), 4711);
41 ok(&Devel::PPPort::sv_2uv("1735928559"), 1735928559);
42 ok(&Devel::PPPort::SvUVx("1735928559"), 1735928559);
43 ok(&Devel::PPPort::SvUVx(1735928559), 1735928559);
44 ok(&Devel::PPPort::SvUVx(0xdeadbeef), 0xdeadbeef);
45 ok(&Devel::PPPort::XSRETURN_UV(), 42);
46 ok(&Devel::PPPort::PUSHu(), 42);
47 ok(&Devel::PPPort::XPUSHu(), 43);