diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-12-02 22:37:24 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-12-02 22:37:24 +0000 |
commit | 3b0cdb49d0bc602820bd0667a735aa92bca9cece (patch) | |
tree | a9be6e0a33d496880e972705488226cf8e57a866 | |
parent | ae1fed6bd9bbb175456f8f5ffc7ada0abc455896 (diff) |
Add new directory for pre-compilation of files needed for further tests.
Application to the test of notation import from within a section.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11652 85f007b7-540e-0410-9357-904b9bb8a0f7
-rwxr-xr-x | test-suite/check | 17 | ||||
-rw-r--r-- | test-suite/prerequisite/make_notation.v | 3 | ||||
-rw-r--r-- | test-suite/success/Notations.v | 5 |
3 files changed, 25 insertions, 0 deletions
diff --git a/test-suite/check b/test-suite/check index 47960e98d..68a4b0e38 100755 --- a/test-suite/check +++ b/test-suite/check @@ -9,6 +9,7 @@ else fi command="$coqtop -top Top -load-vernac-source" +coqc="$coqtop -compile" # on compte le nombre de tests et de succès nbtests=0 @@ -234,8 +235,24 @@ test_features () { done } +# Compile in advance files needed for tests involving a "Require" +prepare_tests () { + files=`/bin/ls -1 $1/*.v 2> /dev/null` + for f in $files; do + printf " "$f"..." + $coqc $1/`basename $f .v` > /dev/null 2>&1 + if [ $? != 0 ]; then + echo "could not be prepared" + else + echo "correctly prepared" + fi + done +} + # Programme principal +echo "Preparing tests" +prepare_tests prerequisite echo "Success tests" test_success success echo "Failure tests" diff --git a/test-suite/prerequisite/make_notation.v b/test-suite/prerequisite/make_notation.v new file mode 100644 index 000000000..4a75713d1 --- /dev/null +++ b/test-suite/prerequisite/make_notation.v @@ -0,0 +1,3 @@ +(* Used in Notation.v to test import of notations from files in sections *) + +Notation "'Z'" := O (at level 9). diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index 6dce0401d..63f85bc70 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -26,3 +26,8 @@ Notation "x +1" := (S x) (at level 8, right associativity). right order *) Notation "' 'C_' G ( A )" := (A,G) (at level 8, G at level 2). + +(* Check import of notations from within a section *) + +Notation "+1 x" := (S x) (at level 25, x at level 9). +Section A. Notation Global "'Z'" := O (at level 9). End A. |