From ce65236514d96974fbcae0bac8bb05bcd8fb0164 Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Fri, 20 Jan 2023 12:50:07 +0100
Subject: [PATCH] Parse tests as private functions.

  They actually are private; we can't export / import tests. Fixes #284.
---
 crates/aiken-lang/src/parser.rs                            | 2 +-
 examples/acceptance_tests/047/aiken.lock                   | 5 +++++
 examples/acceptance_tests/047/aiken.toml                   | 3 +++
 .../acceptance_tests/047/assets/foo/spend/mainnet.addr     | 1 +
 .../047/assets/foo/spend/payment_script.json               | 5 +++++
 examples/acceptance_tests/047/assets/foo/spend/script.cbor | 1 +
 .../acceptance_tests/047/assets/foo/spend/testnet.addr     | 1 +
 examples/acceptance_tests/047/lib/tests.ak                 | 0
 examples/acceptance_tests/047/validators/foo.ak            | 7 +++++++
 9 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100644 examples/acceptance_tests/047/aiken.lock
 create mode 100644 examples/acceptance_tests/047/aiken.toml
 create mode 100644 examples/acceptance_tests/047/assets/foo/spend/mainnet.addr
 create mode 100644 examples/acceptance_tests/047/assets/foo/spend/payment_script.json
 create mode 100644 examples/acceptance_tests/047/assets/foo/spend/script.cbor
 create mode 100644 examples/acceptance_tests/047/assets/foo/spend/testnet.addr
 create mode 100644 examples/acceptance_tests/047/lib/tests.ak
 create mode 100644 examples/acceptance_tests/047/validators/foo.ak

diff --git a/crates/aiken-lang/src/parser.rs b/crates/aiken-lang/src/parser.rs
index daff92a6..16c90586 100644
--- a/crates/aiken-lang/src/parser.rs
+++ b/crates/aiken-lang/src/parser.rs
@@ -300,7 +300,7 @@ pub fn test_parser() -> impl Parser<Token, ast::UntypedDefinition, Error = Parse
                 location: span_end,
                 end_position: span.end - 1,
                 name,
-                public: true,
+                public: false,
                 return_annotation: None,
                 return_type: (),
             })
diff --git a/examples/acceptance_tests/047/aiken.lock b/examples/acceptance_tests/047/aiken.lock
new file mode 100644
index 00000000..3a78b1e7
--- /dev/null
+++ b/examples/acceptance_tests/047/aiken.lock
@@ -0,0 +1,5 @@
+# This file was generated by Aiken
+# You typically do not need to edit this file
+
+requirements = []
+packages = []
diff --git a/examples/acceptance_tests/047/aiken.toml b/examples/acceptance_tests/047/aiken.toml
new file mode 100644
index 00000000..6c202a8a
--- /dev/null
+++ b/examples/acceptance_tests/047/aiken.toml
@@ -0,0 +1,3 @@
+name = 'aiken-lang/acceptance_test_047'
+version = '0.0.0'
+description = ''
diff --git a/examples/acceptance_tests/047/assets/foo/spend/mainnet.addr b/examples/acceptance_tests/047/assets/foo/spend/mainnet.addr
new file mode 100644
index 00000000..36be4414
--- /dev/null
+++ b/examples/acceptance_tests/047/assets/foo/spend/mainnet.addr
@@ -0,0 +1 @@
+addr1w9z47fyj9ffqck2fnld04k27zfe04wq6n9zj76u4ghu4xdcd0futm
\ No newline at end of file
diff --git a/examples/acceptance_tests/047/assets/foo/spend/payment_script.json b/examples/acceptance_tests/047/assets/foo/spend/payment_script.json
new file mode 100644
index 00000000..b3302099
--- /dev/null
+++ b/examples/acceptance_tests/047/assets/foo/spend/payment_script.json
@@ -0,0 +1,5 @@
+{
+  "type": "PlutusScriptV2",
+  "description": "Generated by Aiken",
+  "cborHex": "4e4d01000022253335734944526161"
+}
\ No newline at end of file
diff --git a/examples/acceptance_tests/047/assets/foo/spend/script.cbor b/examples/acceptance_tests/047/assets/foo/spend/script.cbor
new file mode 100644
index 00000000..862591fa
--- /dev/null
+++ b/examples/acceptance_tests/047/assets/foo/spend/script.cbor
@@ -0,0 +1 @@
+4d01000022253335734944526161
\ No newline at end of file
diff --git a/examples/acceptance_tests/047/assets/foo/spend/testnet.addr b/examples/acceptance_tests/047/assets/foo/spend/testnet.addr
new file mode 100644
index 00000000..d6baa9fb
--- /dev/null
+++ b/examples/acceptance_tests/047/assets/foo/spend/testnet.addr
@@ -0,0 +1 @@
+addr_test1wpz47fyj9ffqck2fnld04k27zfe04wq6n9zj76u4ghu4xdck8aqy7
\ No newline at end of file
diff --git a/examples/acceptance_tests/047/lib/tests.ak b/examples/acceptance_tests/047/lib/tests.ak
new file mode 100644
index 00000000..e69de29b
diff --git a/examples/acceptance_tests/047/validators/foo.ak b/examples/acceptance_tests/047/validators/foo.ak
new file mode 100644
index 00000000..7c29cd5e
--- /dev/null
+++ b/examples/acceptance_tests/047/validators/foo.ak
@@ -0,0 +1,7 @@
+fn spend(_datum: Void, _redeemer: Void, _ctx: Void) -> Bool {
+  True
+}
+
+test foo() {
+  1 + 1 == 2
+}