From 15bbdcfa63dd7fee30b3d03f98cf0795e4baf087 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 12 May 2008 18:25:06 +0000
Subject: MAJ et bricoles diverses

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10923 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/check             | 1 +
 test-suite/complexity/ring.v | 7 +++++++
 2 files changed, 8 insertions(+)
 create mode 100644 test-suite/complexity/ring.v

(limited to 'test-suite')

diff --git a/test-suite/check b/test-suite/check
index d01f9b51a9..4c98f8ac28 100755
--- a/test-suite/check
+++ b/test-suite/check
@@ -106,6 +106,7 @@ test_interactive() {
 # La fonction suivante teste en interactif 
 # It expects a line "(* Expected time < XXX.YYs *)" in the .v file 
 # with exactly two digits after the dot
+# The reference for time is a 6120 bogomips cpu
 test_complexity() {
     if [ -f /proc/cpuinfo ]; then
 	if grep -q bogomips /proc/cpuinfo; then # i386, ppc
diff --git a/test-suite/complexity/ring.v b/test-suite/complexity/ring.v
new file mode 100644
index 0000000000..5a541bc24a
--- /dev/null
+++ b/test-suite/complexity/ring.v
@@ -0,0 +1,7 @@
+(* This example, checks the efficiency of the abstract machine used by ring *)
+(* Expected time < 1.00s *)
+
+Require Import ZArith.
+Open Scope Z_scope.
+Goal forall a, a+a+a+a+a+a+a+a+a+a+a+a+a = a*13.
+Time intro; ring.
-- 
cgit v1.2.3