Lines Matching refs:diff
94 my $diff = timediff ($t1, $t0);
95 isa_ok ($diff, 'Benchmark', "Get the time difference");
98 my $default = timestr ($diff);
99 isnt ($default, '', 'timestr ($diff)');
100 my $auto = timestr ($diff, 'auto');
101 is ($auto, $default, 'timestr ($diff, "auto") matches timestr ($diff)');
104 my $all = timestr ($diff, 'all');
105 like ($all, $All_Pattern, 'timestr ($diff, "all")');
110 is (timestr ($diff, 'none'), '', "none supresses output");
112 my $noc = timestr ($diff, 'noc');
113 like ($noc, qr/$wallclock +wallclock secs? +\( *$usr +usr +\+ +$sys +sys += +$cpu +CPU\)/, 'timestr ($diff, "noc")');
115 my $nop = timestr ($diff, 'nop');
116 like ($nop, qr/$wallclock +wallclock secs? +\( *$cusr +cusr +\+ +$csys +csys += +\d+\.\d\d +CPU\)/, 'timestr ($diff, "nop")');
124 like (timestr ($diff, 'all', 'E'),
125 qr/(\d+) +wallclock secs? +\( *\d\.\d+E[-+]?\d\d\d? +usr +\d\.\d+E[-+]?\d\d\d? +sys +\+ +\d\.\d+E[-+]?\d\d\d? +cusr +\d\.\d+E[-+]?\d\d\d? +csys += +\d\.\d+E[-+]?\d\d\d? +CPU\)/, 'timestr ($diff, "all", "E") [sprintf format of "E"]');