a2kit 4.4.1

Retro disk image and language utility
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
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

//! test of Applesoft diagnostics module

use regex::Regex;
use std::str::FromStr;
use super::super::diagnostics;

#[cfg(test)]
fn test_diagnostics(prog_name: &str, expected_messages: &[&str], ws_path: &str) {
    use crate::lang::server::Analysis;
    let path = std::env::current_dir().expect("no cwd").join("tests").join("applesoft").join(prog_name);
    let mut analyzer = diagnostics::Analyzer::new();
    if ws_path.len() > 0 {
        let abs_path = std::path::absolute(std::path::PathBuf::from_str(ws_path).expect("bad path")).expect("absolute failed");
        let uri = crate::lang::uri_from_path(&abs_path).expect("could not form URI");
        analyzer.init_workspace(vec![uri],vec![]).expect("could not init workspace");
    }
    let doc = crate::lang::Document::from_file_path(&path).expect("failed to create document");
    analyzer.analyze(&doc).expect("could not analyze");
    let diag_set = analyzer.get_diags(&doc);
    assert_eq!(diag_set.len(),expected_messages.len());
	for i in 0..diag_set.len()
	{
        let patt = Regex::new(expected_messages[i]).expect("bad regex");
		assert!(patt.is_match(&diag_set[i].message));
	}
}

#[test]
fn undeclared() {
    test_diagnostics("test-undeclared.abas", &[
        "array is never DIM'd",
        "array is never DIM'd",
        "array is never DIM'd",
        "array is never DIM'd",
        "array is never DIM'd"
    ],"");
}

#[test]
fn unassigned() {
    test_diagnostics("test-unassigned.abas", &[
        "variable is never assigned",
        "variable is never assigned",
        "variable is never assigned",
        "variable is never assigned"
    ],"");
}

#[test]
fn collisions() {
    test_diagnostics("test-collisions.abas", &[
        r"variable name collision:\s*(PIES,PI|PI,PIES)",
        r"variable name collision:\s*(MYWRD\$,MYCLR\$|MYCLR\$,MYWRD\$)",
        r"variable name collision:\s*(CUBE,CUTE|CUTE,CUBE)"
    ],"");
}

#[test]
fn range_errors() {
    test_diagnostics("test-ranges.abas", &[
        r"Out of range \(0,63999\)",
        r"Out of range \(-1\.7e38,1\.7e38\)",
        r"Out of range \(-32767,32767\)",
        r"Out of range \(0,7\)",
        r"Out of range \(-32767,65535\)",
        r"Out of range \(0,255\)",
        r"Out of range \(-32767,65535\)",
        r"Out of range \(-32767,65535\)",
        r"Out of range \(-32767,65535\)",
        r"Out of range \(-32767,65535\)",
        r"Out of range \(-32767,65535\)",
        r"Out of range \(0,255\)",
        r"Out of range \(0,255\)"
    ],"");
}

#[test]
fn line_numbers() {
    test_diagnostics("test-lines.abas", &[
        "Line number out of order",
        r"\(ERROR \(tok_minus\)\)",
        "Line does not exist",
        "Line does not exist",
        "Line does not exist",
        "Line does not exist",
        "Line does not exist",
        "Line does not exist"
    ],"");
}

#[test]
fn user_functions() {
    test_diagnostics("test-functions.abas", &[
        "function is redefined",
        "function never defined"
    ],"");
}

#[test]
fn data() {
    test_diagnostics("test-data.abas", &[
        "Odd quote parity in literal on multi-statement line invites trouble"
    ],"");
}

#[test]
fn chain() {
    test_diagnostics("test.chain2.abas", &[
        "variable is never assigned",
        "ProDOS CHAIN detected"
    ],".");
}