blob: a9b78d52d47b98f9183648c9160e002fd3d524ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# Before 'make install' is performed this script should be runnable with
# 'make test'. After 'make install' it should work as 'perl RPN.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use strict;
use warnings;
# Include RPN for testing
use RPN;
use Test::More tests => 2;
BEGIN { use_ok('RPN') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
my $expression;
my $expect;
my $result;
$expression = 42;
$expect = 42;
$result = RPN::rpn($expression);
is ($result, $expect, 'Test 2');
|
