| /openbsd-src/gnu/usr.bin/perl/dist/Time-HiRes/t/ |
| H A D | usleep.t | 4 require Time::HiRes; 5 unless(&Time::HiRes::d_usleep) { 15 eval { Time::HiRes::usleep(-2) }; 22 Time::HiRes::usleep(10_000); 24 Time::HiRes::usleep(10_000); 30 skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday; 31 my $f = Time::HiRes::time(); 32 Time::HiRes::usleep(500_000); 33 my $f2 = Time::HiRes::time(); 39 skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday; [all …]
|
| H A D | itimer.t | 5 eval "use Time::HiRes qw($symbol)"; 14 require Time::HiRes; 15 unless(defined &Time::HiRes::setitimer 16 && defined &Time::HiRes::getitimer 35 my $r = [Time::HiRes::gettimeofday()]; 38 $i ? $i-- : Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0); 39 printf("# Tick! $i %s\n", Time::HiRes::tv_interval($r)); 43 Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0.5, 0.4))); 46 my $virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL); 52 Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL))); [all …]
|
| H A D | utime.t | 5 require Time::HiRes; 6 my ($fh, $filename) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX" ); 18 push @mtimes, (Time::HiRes::stat($filename))[9]; 19 Time::HiRes::sleep(.1) if $_ == 1; 32 require Time::HiRes; 33 my ($fh, $filename) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX" ); 93 require Time::HiRes; 96 unless(&Time::HiRes::d_hires_utime) { 99 unless(&Time::HiRes::d_hires_stat) { 104 unless (&Time::HiRes::d_futimens) { [all …]
|
| H A D | clock.t | 7 BEGIN { require_ok "Time::HiRes"; } 11 eval "use Time::HiRes qw($symbol)"; 17 printf("# have_clock_gettime = %d\n", &Time::HiRes::d_clock_gettime); 18 printf("# have_clock_getres = %d\n", &Time::HiRes::d_clock_getres); 19 printf("# have_clock_nanosleep = %d\n", &Time::HiRes::d_clock_nanosleep); 20 printf("# have_clock = %d\n", &Time::HiRes::d_clock); 36 unless &Time::HiRes::d_clock_gettime && has_symbol("CLOCK_REALTIME"); 41 my $t0 = Time::HiRes::clock_gettime(&CLOCK_REALTIME); 43 Time::HiRes::sleep($T); 44 my $t1 = Time::HiRes::clock_gettime(&CLOCK_REALTIME); [all …]
|
| H A D | alarm.t | 7 BEGIN { require_ok "Time::HiRes"; } 20 defined &Time::HiRes::gettimeofday && 21 defined &Time::HiRes::ualarm && 22 defined &Time::HiRes::usleep && 35 $r = [Time::HiRes::gettimeofday()]; 62 Time::HiRes::alarm(0.3); 64 my $ival = Time::HiRes::tv_interval ($r); 94 my $ival = Time::HiRes::tv_interval ($r); 112 Time::HiRes::alarm(0); # can't cancel usig %SIG 120 skip "no ualarm", 1 unless &Time::HiRes::d_ualarm; [all …]
|
| H A D | ualarm.t | 4 require Time::HiRes; 5 unless(&Time::HiRes::d_ualarm) { 23 $tick = 0; Time::HiRes::ualarm(10_000); while ($tick == 0) { } 25 $tick = 0; Time::HiRes::ualarm(10_000); while ($tick == 0) { } 31 $tick = 0; Time::HiRes::ualarm(10_000, 10_000); while ($tick < 3) { } 33 Time::HiRes::ualarm(0); 37 eval { Time::HiRes::ualarm(-4) }; 62 my $t0 = Time::HiRes::time(); 65 Time::HiRes::ualarm($n); 1 while $alarmed == 0; 66 my $t1 = Time::HiRes::time(); [all …]
|
| H A D | sleep.t | 7 BEGIN { require_ok "Time::HiRes"; } 18 defined &Time::HiRes::gettimeofday && 19 defined &Time::HiRes::ualarm && 20 defined &Time::HiRes::usleep && 23 eval { Time::HiRes::sleep(-1) }; 29 my $f = Time::HiRes::time; 33 my $r = [Time::HiRes::gettimeofday()]; 34 Time::HiRes::sleep (0.5); 35 printf("# sleep...%s\n", Time::HiRes::tv_interval($r));
|
| H A D | nanosleep.t | 4 require Time::HiRes; 5 unless(&Time::HiRes::d_nanosleep) { 15 eval { Time::HiRes::nanosleep(-5) }; 20 Time::HiRes::nanosleep(10_000_000); 22 Time::HiRes::nanosleep(10_000_000); 28 skip "no gettimeofday", 2 unless &Time::HiRes::d_gettimeofday; 29 my $f = Time::HiRes::time(); 30 Time::HiRes::nanosleep(500_000_000); 31 my $f2 = Time::HiRes::time();
|
| H A D | stat.t | 4 require Time::HiRes; 5 unless(&Time::HiRes::d_hires_stat) { 24 Time::HiRes::sleep(rand(0.1) + 0.1); 28 my($a, $stat, $b) = ("a", [Time::HiRes::stat($$)], "b"); 33 ($a, my $lstat, $b) = ("a", [Time::HiRes::lstat($$)], "b"); 45 Time::HiRes::sleep(rand(0.1) + 0.1); 49 $stat = [Time::HiRes::stat($$)]; 51 $lstat = [Time::HiRes::lstat($$)]; 96 note "compare Time::HiRes::stat with ::lstat"; 97 my @tgt_stat = Time::HiRes::stat($targetname); [all …]
|
| H A D | gettimeofday.t | 4 require Time::HiRes; 5 unless(&Time::HiRes::d_gettimeofday) { 15 my @one = Time::HiRes::gettimeofday(); 22 my @two = Time::HiRes::gettimeofday(); 26 my $f = Time::HiRes::time(); 30 my $r = [Time::HiRes::gettimeofday()]; 31 my $g = Time::HiRes::tv_interval $r;
|
| H A D | time.t | 7 BEGIN { require_ok "Time::HiRes"; } 10 skip "no gettimeofday", 1 unless &Time::HiRes::d_gettimeofday; 13 $s += Time::HiRes::time() - CORE::time(); 20 or print("# Time::HiRes::time() not close to CORE::time()\n");
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Time-Piece/t/ |
| H A D | 01base.t | 3 BEGIN { use_ok('Time::Piece'); } 7 isa_ok($t, 'Time::Piece', 'specific gmtime'); 16 isa_ok($g, 'Time::Piece', 'current gmtime'); 19 isa_ok($l, 'Time::Piece', 'current localtime'); 22 $g = Time::Piece::gmtime; 23 isa_ok($g, 'Time::Piece', 'fully qualified gmtime'); 25 $l = Time::Piece::localtime; 26 isa_ok($l, 'Time::Piece', 'full qualified localtime'); 29 $l = Time::Piece->new(315532800); 30 isa_ok($l, 'Time::Piece', 'custom localtime via new'); [all …]
|
| H A D | 02core.t | 7 use Time::Piece; 8 use Time::Seconds; 54 Time::Piece::_tzset(); # register the environment change 127 cmp_ok(Time::Piece::date_separator(), 'eq', '/'); 136 cmp_ok(Time::Piece::time_separator(), 'eq', '.'); 154 my @nmdays = Time::Piece::day_list(); 171 my @nmmonths = Time::Piece::mon_list(); 184 ok(!Time::Piece::_is_leap_year(1900)); 186 ok(!Time::Piece::_is_leap_year(1901)); 188 ok(Time::Piece::_is_leap_year(1904)); [all …]
|
| H A D | 07arith.t | 3 BEGIN { use_ok('Time::Piece'); use_ok('Time::Seconds'); } 28 $t = Time::Piece->strptime("01 01 2010","%d %m %Y"); 52 # Tests for Time::Seconds start here 62 is($s2->minutes, 44640, 'Copy Time::Seconds object'); 64 is($s2->minutes, 44641, 'Add integer to Time::Seconds object'); 66 is($s2->minutes, 44701, 'Add exported constant to Time::Seconds object'); 68 is($s2->minutes, 89402, 'Add one Time::Seconds object to another'); 74 $s2 = Time::Seconds->new(); 75 is($s2->seconds, 0, 'Empty Time::Seconds constructor is 0s'); 76 my $s3 = Time::Seconds->new(10); [all …]
|
| H A D | 09locales.t | 2 use Time::Piece; 13 &Time::Piece::_default_locale(); 18 cmp_ok( $t->monname, 'eq', &Time::Piece::_locale()->{mon}[ $t->_mon ] ); 19 cmp_ok( $t->month, 'eq', &Time::Piece::_locale()->{mon}[ $t->_mon ] ); 20 cmp_ok( $t->fullmonth, 'eq', &Time::Piece::_locale()->{month}[ $t->_mon ] ); 23 cmp_ok( $t->wdayname, 'eq', &Time::Piece::_locale()->{wday}[ $t->_wday ] ); 24 cmp_ok( $t->day, 'eq', &Time::Piece::_locale()->{wday}[ $t->_wday ] ); 25 cmp_ok( $t->fullday, 'eq', &Time::Piece::_locale()->{weekday}[ $t->_wday ] ); 29 cmp_ok( $t->day, 'eq', &Time::Piece::_locale()->{wday}[ $t->_wday ] ); 30 cmp_ok( $t->fullday, 'eq', &Time::Piece::_locale()->{weekday}[ $t->_wday ] ); [all …]
|
| H A D | 99legacy.t | 7 BEGIN { use_ok('Time::Piece'); } 12 # parse() has been deleted from Time::Piece. 18 my $t1 = Time::Piece->parse($timestring); 22 eval { $t2 = Time::Piece->parse(); }; 24 eval { $t2 = Time::Piece::parse( 0, 0, 12, 1, 0, 100 ); };
|
| H A D | 10overload.t | 3 use Time::Piece; 9 my $t = Time::Piece->gmtime(315532800); # 00:00:00 1/1/1980 10 isa_ok $t, 'Time::Piece'; 13 $t = Time::Piece->gmtime(Math::BigInt->new('315532800')); # 00:00:00 1/1/1980
|
| H A D | 05overload.t | 4 use Time::Piece; 6 my $s = Time::Seconds->new(15); 8 ok($@, "", "Adding Time::Seconds does not cause runtime error");
|
| /openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/ |
| H A D | 105oneshot-gzip-only.t | 80 is $hdr->{Time}, $mtime, " Time is ok"; 90 is $hdr->{Time}, $mtime, " Time is ok"; 92 title "Override Time" ; 95 $hdr = gzipGetHeader($file1, $content, Time => 1234); 98 is $hdr->{Time}, 1234, " Time is 1234"; 100 title "Override Name and Time" ; 103 $hdr = gzipGetHeader($file1, $content, Time [all...] |
| H A D | 105oneshot-zip-only.t | 80 is $hdr->{Time}>>1, $mtime>>1, " Time is ok"; 90 is $hdr->{Time} >> 1, $mtime >> 1, " Time is ok"; 92 title "Override Time" ; 96 $hdr = zipGetHeader($file1, $content, Time => $useTime); 99 is $hdr->{Time} >> 1 , $useTime >> 1 , " Time is $useTime"; 101 title "Override Name and Time" ; 105 $hdr = zipGetHeader($file1, $content, Time [all...] |
| /openbsd-src/gnu/usr.bin/perl/t/io/ |
| H A D | eintr_print.t | 18 use Time::HiRes; 25 unless Time::HiRes::d_ualarm(); 27 unless Time::HiRes::d_usleep(); 61 Time::HiRes::usleep $big_delay; 64 Time::HiRes::ualarm($fail_delay); 76 Time::HiRes::ualarm(0); 85 Time::HiRes::ualarm($small_delay); # and when it block we'll get SIGALRM 88 Time::HiRes::ualarm(0); 90 Time::HiRes::usleep(500_000);
|
| /openbsd-src/gnu/llvm/llvm/include/llvm/Support/Windows/ |
| H A D | WindowsSupport.h | 204 inline std::chrono::nanoseconds toDuration(FILETIME Time) { in toDuration() argument 206 TimeInteger.LowPart = Time.dwLowDateTime; in toDuration() 207 TimeInteger.HighPart = Time.dwHighDateTime; in toDuration() 213 inline TimePoint<> toTimePoint(FILETIME Time) { in toTimePoint() argument 215 TimeInteger.LowPart = Time.dwLowDateTime; in toTimePoint() 216 TimeInteger.HighPart = Time.dwHighDateTime; in toTimePoint() 230 FILETIME Time; in toFILETIME() local 231 Time.dwLowDateTime = TimeInteger.LowPart; in toFILETIME() 232 Time.dwHighDateTime = TimeInteger.HighPart; in toFILETIME() 233 return Time; in toFILETIME()
|
| /openbsd-src/gnu/usr.bin/perl/cpan/libnet/t/ |
| H A D | time.t | 27 eval{ require Net::Time; }; 33 my $badsock = Net::Time::_socket('foo', 1, 'bar', 'baz'); 37 my $sock = Net::Time::_socket('foo', 2, 'bar'); 43 $sock = Net::Time::_socket('foo', 3, 'bar', 'tcp', 11); 52 is( Net::Time::inet_daytime('bob'), 'z', 'inet_daytime() should receive data' ); 62 is( Net::Time::inet_time('foo'), 6,
|
| /openbsd-src/gnu/llvm/compiler-rt/lib/scudo/standalone/ |
| H A D | secondary.h | 152 const u64 Time = getMonotonicTime(); in store() local 161 Entry.Time = Time; in store() 168 Entry.Time = 0; in store() 177 Entry.Time = 0; in store() 199 OldestTime = Entry.Time; in store() 214 OldestTime = Entry.Time; in store() 223 releaseOlderThan(Time - static_cast<u64>(Interval) * 1000000); in store() 263 *Zeroed = Entry.Time == 0; in retrieve() 375 u64 Time; member 378 void releaseIfOlderThan(CachedBlock &Entry, u64 Time) { in releaseIfOlderThan() argument [all …]
|
| /openbsd-src/gnu/llvm/llvm/include/llvm/Support/ |
| H A D | Timer.h | 82 TimeRecord Time; ///< The total time captured. variable 135 TimeRecord getTotalTime() const { return Time; } in getTotalTime() 177 TimeRecord Time; member 183 PrintRecord(const TimeRecord &Time, const std::string &Name, in PrintRecord() 185 : Time(Time), Name(Name), Description(Description) {} in PrintRecord() 188 return Time < Other.Time;
|