### ----------------------------------------------------
### -- P5times
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/01-basic.t
### ----------------------------------------------------
use v6.*;
use Test;
use P5times;
%*ENV<RAKUDO_NO_DEPRECATIONS> = True;

plan 11;

ok defined(::('&times')),       'is &times imported?';
ok !defined(P5times::{'&times'}), 'is &times externally NOT accessible?';

my $user = times(Scalar);
ok $user > 0, 'did we get some user CPU';

my ($user1,$system1,$cuser1,$csystem1) = times;
ok $user1   > 0, 'did we get some user CPU';
ok $system1 > 0, 'did we get some system CPU';
is $cuser1,   0, 'did we get no child user CPU';
is $csystem1, 0, 'did we get no child system CPU';

Nil for ^100000;                # make sure we burn some user CPU
open($?FILE).close for ^10000;  # make sure we burn some system CPU

my ($user2,$system2,$cuser2,$csystem2) = times;
ok $user2   > $user1,   "second user CPU $user2 > first user CPU $user1";
ok $system2 > $system1, "second system CPU $system2 > first system CPU $system1";
is $cuser2,   0,        'did we get no child user CPU';
is $csystem2, 0,        'did we get no child system CPU';

# vim: expandtab shiftwidth=4


