package TestCase::Return {

  sub return_implicite_convertion : int () {
    my $str = return_implicite_convertion_stub();
    unless ($str eq "1") {
      return 0;
    }
    
    return 1;
  }
  
  sub return_implicite_convertion_stub : string () {
    my $int = SPVM::Int->new(1);
    return $int->val;
  }
}