From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

KIMOTO / SPVM-0.990047 / t / 02_vm / 05_op / constant.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

              
use lib "t/testlib";
use TestAuto;
use strict;
use warnings;
use Test::More;
use SPVM 'TestCase::Operator::Constant';
# Start objects count
my $api = SPVM::api();
my $start_memory_blocks_count = $api->get_memory_blocks_count();
{
  ok(SPVM::TestCase::Operator::Constant->load_constant_char);
}
# constant int
{
  is(SPVM::TestCase::Operator::Constant->load_constant_int_min(), -2147483648);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_m32769(), -32769);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_m32768(), -32768);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_m129(), -129);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_m128(), -128);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_m2(), -2);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_m1(), -1);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_0(), 0);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_1(), 1);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_2(), 2);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_3(), 3);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_4(), 4);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_5(), 5);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_6(), 6);
  is(SPVM::TestCase::Operator::Constant->load_constant_int_max(), 2147483647);
}
# constant long
{
  is(SPVM::TestCase::Operator::Constant->load_constant_long_min(), -9223372036854775808);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_m32769(), -32769);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_m32768(), -32768);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_m129(), -129);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_m128(), -128);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_m2(), -2);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_m1(), -1);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_0(), 0);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_1(), 1);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_2(), 2);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_3(), 3);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_4(), 4);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_5(), 5);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_6(), 6);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_127(), 127);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_128(), 128);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_32767(), 32767);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_32768(), 32768);
  is(SPVM::TestCase::Operator::Constant->load_constant_long_max(), 9223372036854775807);
}
# constant float
{
  is(SPVM::TestCase::Operator::Constant->load_constant_float_0(), 0.0);
  is(SPVM::TestCase::Operator::Constant->load_constant_float_1(), 1.0);
  is(SPVM::TestCase::Operator::Constant->load_constant_float_0_5(), 0.5);
  is(SPVM::TestCase::Operator::Constant->load_constant_float_exponent_E_plus(), 0.5E+3);
  is(SPVM::TestCase::Operator::Constant->load_constant_float_exponent_e_plus(), 0.5e+3);
  is(SPVM::TestCase::Operator::Constant->load_constant_float_exponent_E_minus(), 62.5E-3);
  is(SPVM::TestCase::Operator::Constant->load_constant_float_exponent_e_minus(), 62.5e-3);
  is(SPVM::TestCase::Operator::Constant->load_constant_double_exponent_E_plus(), 0.5E+3);
  is(SPVM::TestCase::Operator::Constant->load_constant_double_exponent_e_plus(), 0.5e+3);
  is(SPVM::TestCase::Operator::Constant->load_constant_double_exponent_E_minus(), 62.5E-3);
  is(SPVM::TestCase::Operator::Constant->load_constant_double_exponent_e_minus(), 62.5e-3);
}
# constant double
{
  is(SPVM::TestCase::Operator::Constant->load_constant_double_0(), 0.0);
  is(SPVM::TestCase::Operator::Constant->load_constant_double_1(), 1.0);
  is(SPVM::TestCase::Operator::Constant->load_constant_double_0_5(), 0.5);
}
# All object is freed
$api->set_exception(undef);
my $end_memory_blocks_count = $api->get_memory_blocks_count();
is($end_memory_blocks_count, $start_memory_blocks_count);
done_testing;