diff options
Diffstat (limited to '')
-rw-r--r-- | dhall/src/tests.rs | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/dhall/src/tests.rs b/dhall/src/tests.rs index 994a134..f51f6a8 100644 --- a/dhall/src/tests.rs +++ b/dhall/src/tests.rs @@ -158,12 +158,19 @@ pub fn run_test(test: Test<'_>) -> Result<()> { parse_file_str(&file_path)?.resolve().unwrap_err(); } TypeInferenceSuccess(expr_file_path, expected_file_path) => { - let expr = - parse_file_str(&expr_file_path)?.resolve()?.typecheck()?; - let ty = expr.get_type()?.to_expr(); + // let expr = + // parse_file_str(&expr_file_path)?.resolve()?.typecheck()?; + // let ty = expr.get_type()?.to_expr(); // let expr = parse_file_str(&expr_file_path)?.resolve()?.to_expr(); // let tyexpr = crate::semantics::nze::nzexpr::typecheck(expr)?; // let ty = tyexpr.get_type()?.to_expr(); + let expr = parse_file_str(&expr_file_path)?.resolve()?.to_expr(); + let ty = crate::semantics::tck::typecheck::typecheck(&expr)? + .get_type()? + .to_expr(crate::semantics::phase::ToExprOptions { + alpha: false, + normalize: true, + }); let expected = parse_file_str(&expected_file_path)?.to_expr(); assert_eq_display!(ty, expected); } @@ -226,7 +233,7 @@ pub fn run_test(test: Test<'_>) -> Result<()> { // normalize: true, // }); let expr = parse_file_str(&expr_file_path)?.resolve()?.to_expr(); - let expr = crate::semantics::tck::typecheck::typecheck(expr)? + let expr = crate::semantics::tck::typecheck::typecheck(&expr)? .normalize_whnf_noenv() .to_expr(crate::semantics::phase::ToExprOptions { alpha: false, |