Changeset 34 for trunk/epic/test/test_timing.sql

Timestamp:

06/08/09 21:47:59 (3 years ago)

Author:

fumanchu

Message:

Fixed to work on PG 8.1.

Files:

• trunk/epic/test/test_timing.sql (modified) (2 diffs)

trunk/epic/test/test_timing.sql

@@ -1 +1 @@
 -- Tests for the timing functions which Epic provides.
 -- To run, execute epic.sql, then this script, then test.run_module('test_timing').
+
+CREATE OR REPLACE FUNCTION test._sleep(s double precision) RETURNS VOID AS $$
+-- sleep function for Postgres 8.1
+DECLARE
+  start    timestamp with time zone;
+BEGIN
+  start := timeofday()::timestamp;
+  LOOP
+    EXIT WHEN (timeofday()::timestamp - start) > (s || ' second')::interval;
+  END LOOP;
+END;
+$$ LANGUAGE plpgsql;
 
 CREATE OR REPLACE FUNCTION test.test_timing() RETURNS VOID AS $$
@@ -8 +20 @@
 BEGIN
   -- Shame we have to use 0.01 but some platforms don't have finer resolution.
-  t := test.timing('SELECT pg_sleep(0.01)', 100);
+  t := test.timing('SELECT test._sleep(0.01)', 100);
   
   -- Let's assume that sleep(0.01) * 100 should never run *under* 1s