Có một mô-đun Perl tuyệt vời Time::HiRes. Tôi sử dụng nó rất nhiều trong thư viện của mình và muốn viết một số bài kiểm tra. Tôi đã tìm thấy 2 module CPAN mà chế giễu perl time()
chức năng, nhưng cả hai đều không hỗ trợ Time::HiRes:Làm thế nào để giả lập mô-đun Perl Thời gian :: HiRes
Làm thế nào tôi có thể thử Time::HiRes phụ gettimeofday()
?
PS Tôi muốn sửa các thử nghiệm cho mô-đun của mình Time::ETA. Bây giờ tôi sử dụng hack xấu xí với sleep
"giả", sometimes it works and sometimes it does not.
nào bạn muốn một cái gì đó như 'tiểu set_fixed_time_of_day'? – Suic
Tôi đã suy nghĩ về những gì tôi muốn. Tôi muốn có thể dừng thời gian trong kịch bản thử nghiệm của mình. Sau khi tôi chạy 'my $ ts = CORE :: time(); set_fixed_time ($ ts); '(hoặc cái gì đó tương tự)' time() 'và' Time :: HiRes :: gettimeofday() 'sẽ trả về cùng giá trị cho đến khi tôi chạy' $ ts ++; set_fixed_time ($ ts); ' – bessarabov