From a1613a03bc9afb744eff17818f0c19f80b1813b3 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Sat, 6 Apr 2019 21:34:30 -0500
Subject: [PATCH] Add cache_key test runner

---
 test/test_cache_key.rb | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 test/test_cache_key.rb

diff --git a/test/test_cache_key.rb b/test/test_cache_key.rb
new file mode 100644
index 0000000..8769b11
--- /dev/null
+++ b/test/test_cache_key.rb
@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require "pathname"
+
+require "dhall/binary"
+require "dhall/parser"
+require "dhall/normalize"
+
+class TestCacheKey < Minitest::Test
+	DIRPATH = Pathname.new(File.dirname(__FILE__))
+	TESTS = DIRPATH + "../dhall-lang/tests/semantic-hash/success/"
+
+	Pathname.glob(TESTS + "**/*A.dhall").each do |path|
+		test = path.relative_path_from(TESTS).to_s.sub(/A\.dhall$/, "")
+		define_method("test_#{test}") do
+			assert_equal(
+				(TESTS + "#{test}B.dhall").read.chomp,
+				Dhall::Parser.parse_file(path).cache_key
+			)
+		end
+	end
+end
-- 
2.34.5