131_go_time_basic_test.phpt

--TEST--
Go time basic test

--FILE--
<?php
use \Go\Chan;
use \Go\Time;
use \Go\Scheduler;

function subtc($seq){
    echo "SUB-TC: #$seq\n";
}

go_debug(0);

subtc(1);
echo Time::NANOSECOND . PHP_EOL;
echo Time::MICROSECOND . PHP_EOL;
echo Time::MILLISECOND . PHP_EOL;
echo Time::SECOND . PHP_EOL;   
echo Time::MINUTE . PHP_EOL;     
echo Time::HOUR . PHP_EOL;      

subtc(2);
echo "verify sleep of 1 second : outside of go routine: ";
$t = microtime(true);
Time::sleep(Time::SECOND);
$t1 = microtime(true);
if ( $t1 - $t > 1.1 || $t1 - $t < 0.9 ){
	echo "should sleep 1 second but slept " 
         . ( $t1-$t ) . " seconds\n";
}else{
	echo "pass\n";
}

subtc(3);
go(function (){  //go 1
	$chan = Time::After(1*Time::SECOND);  //go 2
	
	go(function () use($chan){   //go 3
		$time0 = time(); $mtime0 = microtime(true);
		while( true ){
			$v = $chan->tryPop() ;
			if( !empty($v) ) break;
			Time::sleep(20 * Time::MILLISECOND); // = usleep(20 * 1000);
			
			if( microtime(true)-$mtime0 > 1.05 ) {
				echo "timer should expire at 1 second but did not expire until " 
				     . ( microtime(true)-$mtime0 ) . " seconds\n"; 
				return;
			}
		}
		if( abs(microtime(true) - $v) > 0.05 ){
			echo "timer should expire at ". microtime(true) . " but expired at " . $v . PHP_EOL; 
			return;
		}
		if( microtime(true) - $mtime0 > 1.05 ){
			echo "timer should expire at ". $mtime0 . "+1 second but expired at " 
				  . microtime(true) . PHP_EOL; 
			return;
		}
		echo "verify Time::After : 1 second : pass\n";
	});
});

Scheduler::join();

subtc(4);
go(function (){  //go 1
	$c = 2000;
	for($i=0;$i<$c; $i++){
		$ch[$i] = Time::After($i*Time::MILLISECOND);
	}
	
	for($i=0;$i<$c; $i++){
		if( empty($ch[$i]) ){
			echo "some timers were failed to start\n";
			return;
		}
	}
	
	go( function() use($ch, $c){
		$count = 0;
		$time0 = time();
		while($count<$c){
			for($i=0; $i<$c; $i++){
				$p = $ch[$i]->TryPop();
				if(!empty($p)){
					$count ++;
					//echo "ch $i returns $p\n";
				}
			}
			
			Time::sleep(10 * Time::MILLISECOND); // = usleep(10*1000);
			
			if( time()-$time0 > ($c+1000) / 1000 ) {
				echo "timer should expire at ". ($c/1000) .
				     " seconds but expired at " . (time()-$time0) . 
					 " seconds\n"; 
				return; 
			}
		}
		echo "verify start of 2000 timers : pass\n";
	});
});

Scheduler::join();

subtc(5);
go(function (){  //go 1

	$ch = Time::tick(100*Time::MILLISECOND);
	$done = new Chan(1);
	
	go( function() use($ch, $done){
		select(
			['case', $ch, function($v) use($done){
				static $t0 = 0;
				$t1 = microtime(true);
				if($t0){
					if( $t1-$t0 > 0.12 || $t1 - $t0 < 0.08 ){
						echo "timer interval expected to be 0.1 seconds, ". ($t1-$t0) ." in actual\n";
					}
				}
				$t0 = $t1;
				//echo microtime(true) . ":". $v . PHP_EOL;
				
				static $i = 0; 
				if($i++ >= 10) {
					$done->close();
				}
			}]
		)->loop($done);
		
		echo "verify Timer::tick(): pass\n";
	});
});

Scheduler::join();

?>
--EXPECT--
SUB-TC: #1
1
1000
1000000
1000000000
60000000000
3600000000000
SUB-TC: #2
verify sleep of 1 second : outside of go routine: pass
SUB-TC: #3
verify Time::After : 1 second : pass
SUB-TC: #4
verify start of 2000 timers : pass
SUB-TC: #5
verify Timer::tick(): pass