package TestCase::Bool {
  sub basic : int () {
    my $obj_value1 = SPVM::Bool->new_true;
    my $obj_value2 = SPVM::Bool->new_false;
    
    unless ($obj_value1->val == 1) {
      return 0;
    }
    
    unless ($obj_value2->val == 0) {
      return 0;
    }
    
    return 1;
  }
}
