From 8df5a37d934b4f862a6183ee451c6bb34ae72d94 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 6 Apr 2021 13:26:31 +0200
Subject: Add test for -schedule-vio-checking

Close #14074
---
 test-suite/misc/vio_checking.sh    | 32 ++++++++++++++++++++++++++++++++
 test-suite/misc/vio_checking.v     |  9 +++++++++
 test-suite/misc/vio_checking_bad.v |  4 ++++
 toplevel/ccompile.ml               |  1 +
 4 files changed, 46 insertions(+)
 create mode 100755 test-suite/misc/vio_checking.sh
 create mode 100644 test-suite/misc/vio_checking.v
 create mode 100644 test-suite/misc/vio_checking_bad.v

diff --git a/test-suite/misc/vio_checking.sh b/test-suite/misc/vio_checking.sh
new file mode 100755
index 0000000000..ffa909e93b
--- /dev/null
+++ b/test-suite/misc/vio_checking.sh
@@ -0,0 +1,32 @@
+#!/usr/bin/env bash
+
+set -ex
+
+export COQBIN=$BIN
+export PATH=$COQBIN:$PATH
+
+cd misc
+
+rm -f vio_checking{,bad}.{vo,vio}
+
+coqc -vio vio_checking.v
+coqc -vio vio_checking_bad.v
+
+coqc -schedule-vio-checking 2 vio_checking.vio
+
+if coqc -schedule-vio-checking 2 vio_checking_bad.vio; then
+    echo 'vio-checking on vio_checking_bad.vio should have failed!'
+    exit 1
+fi
+if coqc -schedule-vio-checking 2 vio_checking.vio vio_checking_bad.vio; then
+    echo 'vio-checking on vio_checking vio_checking_bad.vio should have failed!'
+    exit 1
+fi
+
+coqc -vio2vo vio_checking.vio
+coqchk -silent vio_checking.vo
+
+if coqc -vio2vo vio_checking_bad.vio; then
+    echo 'vio2vo on vio_checking_bad.vio should have failed!'
+    exit 1
+fi
diff --git a/test-suite/misc/vio_checking.v b/test-suite/misc/vio_checking.v
new file mode 100644
index 0000000000..8dd5e47383
--- /dev/null
+++ b/test-suite/misc/vio_checking.v
@@ -0,0 +1,9 @@
+
+Lemma foo : Type.
+Proof. exact Type. Qed.
+
+Lemma foo1 : Type.
+Proof. exact Type. Qed.
+
+Lemma foo2 : Type.
+Proof. exact foo1. Qed.
diff --git a/test-suite/misc/vio_checking_bad.v b/test-suite/misc/vio_checking_bad.v
new file mode 100644
index 0000000000..f32d06f34a
--- /dev/null
+++ b/test-suite/misc/vio_checking_bad.v
@@ -0,0 +1,4 @@
+(* a file to check that vio-checking is not a noop *)
+
+Lemma foo : Type.
+Proof. match goal with |- ?G => exact G end. Qed.
diff --git a/toplevel/ccompile.ml b/toplevel/ccompile.ml
index 46651d1d8b..df6f04792e 100644
--- a/toplevel/ccompile.ml
+++ b/toplevel/ccompile.ml
@@ -223,6 +223,7 @@ let compile_file opts stm_opts copts injections =
 (* VIO Dispatching                                                            *)
 (******************************************************************************)
 let check_vio_tasks copts =
+  Flags.async_proofs_worker_id := "VioChecking";
   let rc =
     List.fold_left (fun acc (n,f) ->
         let f_in = ensure ".vio" f f in
-- 
cgit v1.2.3