package TestCase::Bool {
  use Bool;

  sub basic : int () {
    my $obj_value1 = Bool->new_true;
    my $is_true1 = $obj_value1->is_true;
    
    $obj_value1->set_false;
    my $is_true2 = $obj_value1->is_true;

    $obj_value1->set_true;
    my $is_true3 = $obj_value1->is_true;

    my $obj_value2 = Bool->new_false;
    my $is_true4 = $obj_value2->is_true;
    
    if ($is_true1 && !$is_true2 && $is_true3 && !$is_true4) {
      return 1;
    }
    
    return 0;
  }
}