diff options
| author | herbelin | 2008-05-12 18:25:06 +0000 |
|---|---|---|
| committer | herbelin | 2008-05-12 18:25:06 +0000 |
| commit | 15bbdcfa63dd7fee30b3d03f98cf0795e4baf087 (patch) | |
| tree | d547b755963a3f6c59fb2da66d30ab81ae4fa4de /test-suite | |
| parent | 651a23b4b21045733d44a4bc944b6b56d449fe2e (diff) | |
MAJ et bricoles diverses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10923 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rwxr-xr-x | test-suite/check | 1 | ||||
| -rw-r--r-- | test-suite/complexity/ring.v | 7 |
2 files changed, 8 insertions, 0 deletions
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. |