added new tests and driver module

[urisagit/Perl-Docs.git] / t / over.pl

diff --git a/t/over.pl b/t/over.pl
new file mode 100644 (file)
index 0000000..ce9bafb
--- /dev/null
+++ b/t/over.pl
@@ -0,0 +1,17 @@
+
+print prototype( 'CORE::sysread' ), "\n" ;
+
+BEGIN {
+
+  *CORE::GLOBAL::time = sub { CORE::time };
+}
+
+print time(), "\n" ;
+
+BEGIN{
+local *CORE::GLOBAL::time = sub { 123 };
+
+print time(), "\n" ;
+}
+
+print time(), "\n" ;