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

KIMOTO / SPVM-0.989051 / t / 02_vm / lib / SPVM / TestCase / Module / Int.spvm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14

              
class TestCase::Module::Int {
  use Fn;
   
  static method basic : int () {
    my $numeric_object = Int->new(Fn->INT32_MIN());
    my $value = $numeric_object->value;
     
    unless ($value == Fn->INT32_MIN()) {
      return 0;
    }
     
    return 1;
  }
}