clojure-reader 0.3.1

A Clojure reader
Documentation 
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

#[cfg(test)]
mod test {
  use clojure_reader::edn;

  fn err_as_string(s: &str) -> String {
    let err = edn::read_string(s).err().unwrap();
    format!("{err:?}")
  }

  #[test]
  fn duplicates() {
    assert_eq!(
      err_as_string(
        "{:cat 42
                  :cat 0x42}"
      ),
      "EdnError { code: HashMapDuplicateKey, line: Some(2), column: Some(28), ptr: Some(36) }"
    );
    assert_eq!(
      err_as_string("#{:cat 1 2 [42] 2}"),
      "EdnError { code: SetDuplicateKey, line: Some(1), column: Some(18), ptr: Some(17) }"
    );
  }

  #[test]
  fn unbalanced_forms() {
    assert_eq!(
      err_as_string("(car (cdr) cdrrdrdrr (so (many (parens ())))"),
      "EdnError { code: UnexpectedEOF, line: Some(1), column: Some(45), ptr: Some(44) }"
    );

    assert_eq!(
      err_as_string("{:foo 42 :bar)"),
      "EdnError { code: UnmatchedDelimiter(')'), line: Some(1), column: Some(14), ptr: Some(13) }"
    );

    assert_eq!(
      err_as_string("#inst"),
      "EdnError { code: UnexpectedEOF, line: Some(1), column: Some(6), ptr: Some(5) }"
    );
  }

  #[test]
  fn parse_invalid_ints() {
    assert_eq!(
      err_as_string("42invalid123"),
      "EdnError { code: InvalidNumber, line: Some(1), column: Some(1), ptr: Some(0) }"
    );
    assert_eq!(
      err_as_string("0xxyz123"),
      "EdnError { code: InvalidNumber, line: Some(1), column: Some(1), ptr: Some(0) }"
    );
    assert_eq!(
      err_as_string("42rabcxzy"),
      "EdnError { code: InvalidRadix(Some(42)), line: Some(1), column: Some(1), ptr: Some(0) }"
    );
    assert_eq!(
      err_as_string("42crazyrabcxzy"),
      "EdnError { code: InvalidRadix(None), line: Some(1), column: Some(1), ptr: Some(0) }"
    );
  }

  #[test]
  fn parse_tag_no_end() {
    assert_eq!(
      err_as_string(r#"#Unit"#),
      "EdnError { code: UnexpectedEOF, line: Some(1), column: Some(6), ptr: Some(5) }"
    );
    assert_eq!(
      err_as_string(r#"#Unit "lolnoendingquote"#),
      "EdnError { code: UnexpectedEOF, line: Some(1), column: Some(24), ptr: Some(23) }"
    );
    assert_eq!(
      err_as_string(r#"#Unit ;"#),
      "EdnError { code: UnexpectedEOF, line: Some(1), column: Some(7), ptr: Some(7) }"
    );
  }
}