#! /bin/false

package Suites::CustomerTest2;

use strict;

use base qw (Test::Unit::TestCase);

use Suites::Customer;

sub testRentingOneMovie
{
    my $self = shift;

    my $customer = Suites::Customer->new;

    $customer->rentMovie(1);

    warn "Output from tests is caught and displayed in the GUI";
    $self->assert($customer->getTotalCharge == 2);
    print "Even if it is printed to stdout instead of stderr.\n";
}

sub testRentingTwoMovies
{
    my $self = shift;

    my $customer = Suites::Customer->new;

    $customer->rentMovie(1);
    $customer->rentMovie(2);

    warn "Will die on purpose:\n"; 
    die "Life is short";
    
    $self->assert_equals(4, $customer->getTotalCharge);
}

sub testRentingThreeMovies
{
    my $self = shift;

    my $customer = Suites::Customer->new;

    $customer->rentMovie(1);
    $customer->rentMovie(2);
    $customer->rentMovie(3);
   
    $self->assert_num_equals(7.75, $customer->getTotalCharge);
}

1;