Uptext test script

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@183 3f818213-9676-44b0-a9b4-5e4c4e03d09d
2009-11-03 14:31:36 +00:00 · 2009-11-03 14:31:36 +00:00 · 2381c4814b
parent 751d04436a
commit 2381c4814b
1 changed files with 10 additions and 0 deletions
--- a/Tests/PS/Uptext.mufa
+++ b/Tests/PS/Uptext.mufa
@ -0,0 +1,10 @@
+program new;
+var
+   i,t:integer;
+begin
+  t:=getsystemtime;
+  for i := 0 to 100 do
+    rs_getuptext;
+  writeln(inttostr(round(getsystemtime - t) / 100));
+  writeln(rs_getuptext);
+end.