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:
Example 5-3. examples/intro/t01_calc.out
2 4 4
Follow me: