1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
use pretty_assertions::assert_eq as assert_eq_pretty;
macro_rules! assert_eq_display {
($left:expr, $right:expr) => {{
match (&$left, &$right) {
(left_val, right_val) => {
if !(*left_val == *right_val) {
panic!(
r#"assertion failed: `(left == right)`
left: `{}`,
right: `{}`"#,
left_val, right_val
)
}
}
}
}};
}
#[macro_export]
macro_rules! make_spec_test {
($type:ident, $status:ident, $name:ident, $path:expr) => {
#[test]
#[allow(non_snake_case)]
fn $name() {
use crate::tests::*;
match run_test_stringy_error($path, Feature::$type, Status::$status)
{
Ok(_) => {}
Err(s) => panic!(s),
}
}
};
}
use std::fs::File;
use std::io::Read;
use std::path::PathBuf;
use crate::error::{Error, Result};
use crate::phase::Parsed;
#[derive(Copy, Clone)]
pub enum Feature {
Parser,
Printer,
BinaryEncoding,
Import,
Normalization,
AlphaNormalization,
Typecheck,
TypeInference,
}
#[derive(Copy, Clone)]
pub enum Status {
Success,
Failure,
}
fn parse_file_str<'i>(file_path: &str) -> Result<Parsed> {
Parsed::parse_file(&PathBuf::from(file_path))
}
pub fn run_test_stringy_error(
base_path: &str,
feature: Feature,
status: Status,
) -> std::result::Result<(), String> {
let base_path: String = base_path.to_string();
run_test(&base_path, feature, status)
.map_err(|e| e.to_string())
.map(|_| ())
}
pub fn run_test(
base_path: &str,
feature: Feature,
status: Status,
) -> Result<()> {
use self::Feature::*;
use self::Status::*;
let feature_prefix = match feature {
Parser => "parser/",
Printer => "parser/",
BinaryEncoding => "parser/",
Import => "import/",
Normalization => "normalization/",
AlphaNormalization => "alpha-normalization/",
Typecheck => "typecheck/",
TypeInference => "type-inference/",
};
let base_path =
"../dhall-lang/tests/".to_owned() + feature_prefix + base_path;
match status {
Success => {
let expr_file_path = base_path.clone() + "A.dhall";
let expr = parse_file_str(&expr_file_path)?;
match feature {
Parser => {
// Compare parse/decoded
let expected_file_path = base_path + "B.dhallb";
let expected_file_path = PathBuf::from(&expected_file_path);
let mut expected_data = Vec::new();
{
File::open(&expected_file_path)?
.read_to_end(&mut expected_data)?;
}
let expected = Parsed::parse_binary(&expected_data)?;
assert_eq_pretty!(expr, expected);
return Ok(());
}
Printer => {
// Round-trip pretty-printer
let expr_string = expr.to_string();
let expected = expr;
let expr: Parsed = Parsed::parse_str(&expr_string)?;
assert_eq!(expr, expected);
return Ok(());
}
BinaryEncoding => {
let expected_file_path = base_path + "B.dhallb";
let expected_file_path = PathBuf::from(&expected_file_path);
let mut expected_data = Vec::new();
{
File::open(&expected_file_path)?
.read_to_end(&mut expected_data)?;
}
let expr_data = expr.encode()?;
// Compare bit-by-bit
if expr_data != expected_data {
// use std::io::Write;
// File::create(&expected_file_path)?.write_all(&expr_data)?;
// Pretty-print difference
assert_eq_pretty!(
serde_cbor::de::from_slice::<
serde_cbor::value::Value,
>(&expr_data)
.unwrap(),
serde_cbor::de::from_slice::<
serde_cbor::value::Value,
>(&expected_data)
.unwrap()
);
// If difference was not visible in the cbor::Value
assert_eq!(expr_data, expected_data);
}
return Ok(());
}
_ => {}
}
let expr = expr.resolve()?;
let expected_file_path = base_path + "B.dhall";
let expected = parse_file_str(&expected_file_path)?
.resolve()?
.skip_typecheck()
.normalize();
match feature {
Parser | Printer | BinaryEncoding => unreachable!(),
Import => {
let expr = expr.skip_typecheck().normalize();
assert_eq_display!(expr, expected);
}
Typecheck => {
expr.typecheck_with(&expected.to_type())?;
}
TypeInference => {
let expr = expr.typecheck()?;
let ty = expr.get_type()?.into_owned();
assert_eq_display!(ty.to_normalized(), expected);
}
Normalization => {
let expr = expr.skip_typecheck().normalize();
assert_eq_display!(expr, expected);
}
AlphaNormalization => {
let expr =
expr.skip_typecheck().normalize().to_expr_alpha();
assert_eq_display!(expr, expected.to_expr());
}
}
}
Failure => {
let file_path = base_path + ".dhall";
match feature {
Parser => {
let err = parse_file_str(&file_path).unwrap_err();
match err {
Error::Parse(_) => {}
e => panic!("Expected parse error, got: {:?}", e),
}
}
Printer | BinaryEncoding => unreachable!(),
Import => {
parse_file_str(&file_path)?.resolve().unwrap_err();
}
Normalization | AlphaNormalization => unreachable!(),
Typecheck | TypeInference => {
parse_file_str(&file_path)?
.skip_resolve()?
.typecheck()
.unwrap_err();
}
}
}
}
Ok(())
}
mod spec {
// See build.rs
include!(concat!(env!("OUT_DIR"), "/spec_tests.rs"));
}
|
