mirror of
https://github.com/leanprover/lean4.git
synced 2026-03-17 10:24:07 +00:00
6a2a884372
Also refactor util.sh in the process, so test scripts become easier to write (inspired in part by lake's test suite).
70 lines
1.6 KiB
Bash
Executable File
70 lines
1.6 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
source ../../env_test.sh
|
|
|
|
rm -rf .lake/build
|
|
|
|
mkdir -p Rebuild
|
|
cat <<EOF > Rebuild/Basic.lean
|
|
-- File autocreated by run_test
|
|
|
|
module
|
|
|
|
/-- Hello world! -/
|
|
public def hello := "world"
|
|
|
|
-- Changes to non-exposed bodies should not leak via equation infos
|
|
public def matchEqn : Nat -> String
|
|
| 0 => "world"
|
|
| n + 1 => matchEqn n
|
|
|
|
public def testSpec (xs : List Nat) : List Nat := xs.map (fun x => x + 1)
|
|
|
|
-- Public macro scopes such as from unnamed parameters and deriving handlers should not cause
|
|
-- rebuilds on changes above.
|
|
public def macroScopes : Nat -> Nat := id
|
|
|
|
public inductive Foo
|
|
deriving Repr
|
|
EOF
|
|
|
|
lake build
|
|
|
|
function test_unchanged() {
|
|
# Keep around previous version for easier diffing.
|
|
cp .lake/build/lib/lean/Rebuild/Basic.olean .lake
|
|
lake build Rebuild.Basic
|
|
lake build --no-build
|
|
}
|
|
|
|
# Whitespace does not matter.
|
|
echo "-- test" >> Rebuild/Basic.lean
|
|
test_unchanged
|
|
|
|
# Closed terms and doc comments do not matter.
|
|
perl -p -i -e 's/world/wodd/' Rebuild/Basic.lean
|
|
test_unchanged
|
|
|
|
# Private declarations do not matter.
|
|
echo 'theorem priv : True := .intro' >> Rebuild/Basic.lean
|
|
test_unchanged
|
|
|
|
# Lambdas do not matter.
|
|
perl -p -i -e 's/"wodd"/dbg_trace "typo"; "wodd"/' Rebuild/Basic.lean
|
|
test_unchanged
|
|
|
|
# Private definitions do not matter.
|
|
echo 'def privd : Nat := 0' >> Rebuild/Basic.lean
|
|
test_unchanged
|
|
|
|
# Specializations do not matter.
|
|
perl -p -i -e 's/x + 1/x + 2/' Rebuild/Basic.lean
|
|
test_unchanged
|
|
|
|
# private `match`es do not matter.
|
|
cat >> Rebuild/Basic.lean <<EOF
|
|
def matchTest : Nat -> Nat
|
|
| 0 => 1
|
|
| n+1 => n
|
|
EOF
|
|
test_unchanged
|