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

KIMOTO / SPVM-0.990049 / t / 02_vm / lib / SPVM / TestCase / Operator / ClassVar.spvm 

            

              
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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

              
class TestCase::Operator::ClassVar {
  use TestCase::Minimal;
  use TestCase::Simple;
  use Fn;
  use Array;
   
  our $lower_var : int;
  our $CLASS_VAR_INT : int;
  our $CLASS_VAR_LONG : long;
  our $CLASS_VAR_MINIMAL : TestCase::Minimal;
  our $CLASS_VAR_INT2 : int;
  our $CLASS_VAR_LONG2 : long;
  our $CLASS_VAR_MINIMAL2 : TestCase::Minimal;
  our $NAME : int;
  our ${NAME_BRACE} : int;
  our $_NAME : int;
  our $name : int;
  our $ACCESSOR : rw int;
  static method class_var : int () {
    unless ($TestCase::Operator::ClassVar::CLASS_VAR_INT == 0) {
      return 0;
    }
    $TestCase::Operator::ClassVar::CLASS_VAR_INT = Fn->INT32_MAX();
    unless ($TestCase::Operator::ClassVar::CLASS_VAR_INT == Fn->INT32_MAX()) {
      return 0;
    }
    $TestCase::Operator::ClassVar::CLASS_VAR_LONG = Fn->INT64_MAX();
    unless ($TestCase::Operator::ClassVar::CLASS_VAR_LONG == Fn->INT64_MAX()) {
      return 0;
    }
    $TestCase::Operator::ClassVar::CLASS_VAR_MINIMAL = TestCase::Minimal->new();
     
    $TestCase::Operator::ClassVar::CLASS_VAR_MINIMAL->set_x(4);
     
    $TestCase::Operator::ClassVar::CLASS_VAR_MINIMAL->set_x(4);
    unless ($TestCase::Operator::ClassVar::CLASS_VAR_MINIMAL->x) {
      return 0;
    }
    $TestCase::Operator::ClassVar::CLASS_VAR_MINIMAL = undef;
     
    return 1;
  }
  static method class_var_name : int () {
     
    $NAME = 1;
    ${NAME_BRACE} = 2;
    $_NAME = 3;
    $name = 4;
     
    unless ($NAME == 1) {
      return 0;
    }
     
    unless ($TestCase::Operator::ClassVar::NAME == 1) {
      return 0;
    }
    unless (${NAME_BRACE} == 2) {
      return 0;
    }
     
    unless (${TestCase::Operator::ClassVar::NAME_BRACE} == 2) {
      return 0;
    }
     
    unless ($_NAME == 3) {
      return 0;
    }
     
    unless ($TestCase::Operator::ClassVar::_NAME == 3) {
      return 0;
    }
     
    unless ($name == 4) {
      return 0;
    }
     
    unless ($TestCase::Operator::ClassVar::name == 4) {
      return 0;
    }
     
    return 1;
  }
  static method class_var_other_class : int () {
     
     
    unless ($TestCase::Simple::FOO == 0) {
      return 0;
    }
    $TestCase::Simple::FOO = 1;
    unless ($TestCase::Simple::FOO == 1) {
      return 0;
    }
     
    return 1;
  }
  static method field_method : int () {
     
    TestCase::Operator::ClassVar->SET_ACCESSOR(3);
    unless ($TestCase::Operator::ClassVar::ACCESSOR == 3) {
      return 0;
    }
     
    unless (TestCase::Operator::ClassVar->ACCESSOR == 3) {
      return 0;
    }
     
    return 1;
  }
}