diff options
| author | Erik Martin-Dorel | 2019-04-02 13:59:06 +0200 |
|---|---|---|
| committer | Erik Martin-Dorel | 2019-04-06 13:39:52 +0200 |
| commit | f0da709639044eab19ff7d6155ccf99740f9f89a (patch) | |
| tree | 2be3ef79cc9961f72a3f8ceeb76b35106b81af03 /test-suite | |
| parent | 3c06ce8dc3a95e5dfe3a4c0a9acdc7dd5dac75cb (diff) | |
Fix pretty-printing of primitive integers
A scope delimiter was missing for primitive integers constants.
Add related regression tests.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/Int63Syntax.out | 16 | ||||
| -rw-r--r-- | test-suite/output/Int63Syntax.v | 13 |
2 files changed, 29 insertions, 0 deletions
diff --git a/test-suite/output/Int63Syntax.out b/test-suite/output/Int63Syntax.out index fdd5599565..4d76f1210b 100644 --- a/test-suite/output/Int63Syntax.out +++ b/test-suite/output/Int63Syntax.out @@ -1,3 +1,7 @@ +2%int63 + : int +(2 + 2)%int63 + : int 2 : int 9223372036854775807 @@ -14,3 +18,15 @@ The command has indeed failed with message: int63 are only non-negative numbers. The command has indeed failed with message: overflow in int63 literal: 9223372036854775808 +2 + : nat +2%int63 + : int +t = 2%i63 + : int +t = 2%i63 + : int +2 + : nat +2 + : int diff --git a/test-suite/output/Int63Syntax.v b/test-suite/output/Int63Syntax.v index 3dc364eddb..0385e529bf 100644 --- a/test-suite/output/Int63Syntax.v +++ b/test-suite/output/Int63Syntax.v @@ -1,5 +1,7 @@ Require Import Int63 Cyclic63. +Check 2%int63. +Check (2 + 2)%int63. Open Scope int63_scope. Check 2. Check 9223372036854775807. @@ -9,4 +11,15 @@ Eval vm_compute in 2+2. Eval vm_compute in 65675757 * 565675998. Fail Check -1. Fail Check 9223372036854775808. +Open Scope nat_scope. +Check 2. (* : nat *) +Check 2%int63. +Delimit Scope int63_scope with i63. +Definition t := 2%int63. +Print t. +Delimit Scope nat_scope with int63. +Print t. +Check 2. +Close Scope nat_scope. +Check 2. Close Scope int63_scope. |