xbasic64 1.0.0

A BASIC-to-x86_64 native code compiler targeting 1980s-era BASIC dialects
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

//! Variable assignment and type suffix tests

// Copyright (c) 2025-2026 Jeff Garzik
// SPDX-License-Identifier: MIT

use crate::common::compile_and_run;

#[test]
fn test_variable_assignment() {
    let output = compile_and_run(
        r#"
X = 100
Y = 23
PRINT X + Y
"#,
    )
    .unwrap();
    assert_eq!(output.trim(), "123");
}

#[test]
fn test_integer_suffix() {
    let output = compile_and_run(
        r#"
X% = 32000
PRINT X%
"#,
    )
    .unwrap();
    assert_eq!(output.trim(), "32000");
}

#[test]
fn test_long_suffix() {
    let output = compile_and_run(
        r#"
X& = 100000
PRINT X&
"#,
    )
    .unwrap();
    assert_eq!(output.trim(), "100000");
}

#[test]
fn test_single_suffix() {
    // Test Single (!) type suffix - 32-bit float
    let output = compile_and_run(
        r#"
X! = 3.14159
PRINT X!
"#,
    )
    .unwrap();
    // Single has ~7 significant digits
    assert!(output.contains("3.14159"));
}

#[test]
fn test_single_arithmetic() {
    // Test arithmetic with Single type
    let output = compile_and_run(
        r#"
A! = 2.5
B! = 3.5
PRINT A! + B!
PRINT A! * B!
"#,
    )
    .unwrap();
    let lines: Vec<&str> = output.trim().lines().collect();
    assert_eq!(lines[0], "6");
    assert_eq!(lines[1], "8.75");
}

#[test]
fn test_string_variable() {
    let output = compile_and_run(
        r#"
X$ = "Hello"
Y$ = " World"
PRINT X$ + Y$
"#,
    )
    .unwrap();
    assert_eq!(output.trim(), "Hello World");
}

#[test]
fn test_rem_comment() {
    let output = compile_and_run(
        r#"
REM This is a comment
PRINT "before"
REM Another comment
PRINT "after"
"#,
    )
    .unwrap();
    assert_eq!(output.trim(), "before\nafter");
}