Example 5-2. examples/intro/t01_calc.t
#!/usr/bin/perl use strict; use warnings; system "./mycalc 1 + 1"; print "\n"; system "./mycalc 2 + 2"; print "\n"; system "./mycalc 2 + 2 + 2"; print "\n";
Output:
| Prev | Home (Copyright Gabor Szabo) Perl Training Israel | Next |
| Basic Testing Framework in Perl | Up | Error ! |