a2kit 4.4.2

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
113
114
115
116
117
118
119
120
121

//! test of Integer 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("integerbasic").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 doc");
    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 long_line() {
    test_diagnostics("breakout.ibas", &[
        "Line may be too long"
    ],"");
}

#[test]
fn collisions() {
    test_diagnostics("test-collisions.ibas", &[
        "illegal variable name",
        "illegal variable name",
        "illegal variable name",
        "illegal variable name",
        "string is never DIM'd",
        "illegal variable name",
        "string is never DIM'd",
        "illegal variable name",
        "something is missing"
    ],"");
}

#[test]
fn functions() {
    test_diagnostics("test-functions.ibas", &[
        r"\(ERROR",
        r"\(ERROR",
        r"\(ERROR",
        r"\(ERROR",
        r"\(ERROR",
        r"\(ERROR"
    ],"");
}

#[test]
fn lines() {
    test_diagnostics("test-lines.ibas", &[
        // first pass
        "Line number out of order",
        // second pass
        r"\(ERROR",
        r"Line does not exist",
        r"Line does not exist",
        r"Line does not exist"
    ],"");
}

#[test]
fn ranges() {
    test_diagnostics("test-ranges.ibas", &[
        "Out of range",
        "Out of range",
        "Out of range",
        "Out of range",
        "Out of range"
    ],"");
}

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

#[test]
fn undeclared() {
    test_diagnostics("test-undeclared.ibas", &[
        "array is never DIM'd",
        "variable is never assigned",
        "array is never DIM'd",
        "variable is never assigned",
        "unsubscripted integer array",
        "variable is never assigned",
        "string is never DIM'd",
        "array is never DIM'd",
        "array is never DIM'd",
        "variable is never assigned",
        "unsubscripted integer array"
    ],"");
}

#[test]
fn chain() {
    test_diagnostics("test.chain2.ibas", &[
        "variable is never assigned",
        "variable is never assigned",
        "DOS CHAIN detected: test.chain3"
    ],".")
}