From f044ccf7025137ec541e165e7988772f27080a23 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Tue, 4 May 2004 13:56:30 +0000
Subject: [PATCH] * 1000th revision! * A test to verify that locking of output
 paths (caused by concurrent   invocations of Nix) works correctly.

---
 tests/Makefile.am        |  8 ++++++--
 tests/locking.builder.sh |  9 +++++++++
 tests/locking.nix.in     | 18 ++++++++++++++++++
 tests/locking.sh         | 17 +++++++++++++++++
 4 files changed, 50 insertions(+), 2 deletions(-)
 create mode 100644 tests/locking.builder.sh
 create mode 100644 tests/locking.nix.in
 create mode 100644 tests/locking.sh

diff --git a/tests/Makefile.am b/tests/Makefile.am
index 2119221bb..ba45a3ad8 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -11,11 +11,15 @@ TESTS_ENVIRONMENT = TEST_ROOT=$(TEST_ROOT) \
 
 simple.sh: simple.nix
 dependencies.sh: dependencies.nix
+locking.sh: locking.nix
 
-TESTS = init.sh simple.sh dependencies.sh
+TESTS = init.sh simple.sh dependencies.sh locking.sh
+
+XFAIL_TESTS =
 
 include ../substitute.mk
 
 EXTRA_DIST = $(TESTS) \
   simple.nix.in simple.builder.sh \
-  dependencies.nix.in dependencies.builder*.sh
+  dependencies.nix.in dependencies.builder*.sh \
+  locking.nix.in locking.builder.sh
\ No newline at end of file
diff --git a/tests/locking.builder.sh b/tests/locking.builder.sh
new file mode 100644
index 000000000..5c3dfdafb
--- /dev/null
+++ b/tests/locking.builder.sh
@@ -0,0 +1,9 @@
+export PATH=/bin:/usr/bin:$PATH
+
+sleep 3
+
+touch $out
+# Use `>>'; without proper locking this will cause text duplication.
+echo -n $(cat $inputs)$text >> $out
+
+sleep 2
\ No newline at end of file
diff --git a/tests/locking.nix.in b/tests/locking.nix.in
new file mode 100644
index 000000000..72070678f
--- /dev/null
+++ b/tests/locking.nix.in
@@ -0,0 +1,18 @@
+let {
+
+  mkDrv = text: inputs: derivation {
+    name = "locking";
+    system = "@system@";
+    builder = "@shell@";
+    args = ["-e" "-x" ./locking.builder.sh];
+    inherit text inputs;
+  };
+
+  a = mkDrv "a" [];
+  b = mkDrv "b" [a];
+  c = mkDrv "c" [a b];
+  d = mkDrv "d" [a];
+  e = mkDrv "e" [c d];
+
+  body = e;
+}
\ No newline at end of file
diff --git a/tests/locking.sh b/tests/locking.sh
new file mode 100644
index 000000000..5728aee93
--- /dev/null
+++ b/tests/locking.sh
@@ -0,0 +1,17 @@
+storeExpr=$($TOP/src/nix-instantiate/nix-instantiate locking.nix)
+
+echo "store expr is $storeExpr"
+
+for i in $(seq 1 5); do
+    echo "WORKER $i"
+    $TOP/src/nix-store/nix-store -rvvB "$storeExpr" &
+done
+
+sleep 5
+
+outPath=$($TOP/src/nix-store/nix-store -qnfvvvvv "$storeExpr")
+
+echo "output path is $outPath"
+
+text=$(cat "$outPath")
+if test "$text" != "aabcade"; then exit 1; fi