forked from vieter-v/vieter
90 lines
1.9 KiB
V
90 lines
1.9 KiB
V
module expression
|
|
|
|
// parse_range_error returns the returned error message. If the result is '',
|
|
// that means the function didn't error.
|
|
fn parse_range_error(s string, min int, max int) string {
|
|
parse_range(s, min, max) or { return err.msg }
|
|
|
|
return ''
|
|
}
|
|
|
|
// =====parse_range=====
|
|
fn test_range_star_range() ! {
|
|
bf := parse_range('*', 0, 5)!
|
|
|
|
assert bf_to_ints(bf, 0) == [0, 1, 2, 3, 4, 5]
|
|
}
|
|
|
|
fn test_range_number() ! {
|
|
bf := parse_range('4', 0, 5)!
|
|
|
|
assert bf_to_ints(bf, 0) == [4]
|
|
}
|
|
|
|
fn test_range_number_too_large() ! {
|
|
assert parse_range_error('10', 0, 6) == 'Out of range.'
|
|
}
|
|
|
|
fn test_range_number_too_small() ! {
|
|
assert parse_range_error('0', 2, 6) == 'Out of range.'
|
|
}
|
|
|
|
fn test_range_number_invalid() ! {
|
|
assert parse_range_error('x', 0, 6) == 'Invalid number.'
|
|
}
|
|
|
|
fn test_range_step_star_1() ! {
|
|
bf := parse_range('*/4', 0, 20)!
|
|
|
|
assert bf_to_ints(bf, 0) == [0, 4, 8, 12, 16, 20]
|
|
}
|
|
|
|
fn test_range_step_star_2() ! {
|
|
bf := parse_range('*/3', 1, 8)!
|
|
|
|
assert bf_to_ints(bf, 1) == [1, 4, 7]
|
|
}
|
|
|
|
fn test_range_step_star_too_large() ! {
|
|
assert parse_range_error('*/21', 0, 20) == 'Step size too large.'
|
|
}
|
|
|
|
fn test_range_step_zero() ! {
|
|
assert parse_range_error('*/0', 0, 20) == 'Step size zero not allowed.'
|
|
}
|
|
|
|
fn test_range_step_number() ! {
|
|
bf := parse_range('5/4', 2, 22)!
|
|
|
|
assert bf_to_ints(bf, 2) == [5, 9, 13, 17, 21]
|
|
}
|
|
|
|
fn test_range_step_number_too_large() ! {
|
|
assert parse_range_error('10/4', 0, 5) == 'Out of range.'
|
|
}
|
|
|
|
fn test_range_step_number_too_small() ! {
|
|
assert parse_range_error('2/4', 5, 10) == 'Out of range.'
|
|
}
|
|
|
|
fn test_range_dash() ! {
|
|
bf := parse_range('4-8', 0, 9)!
|
|
|
|
assert bf_to_ints(bf, 0) == [4, 5, 6, 7, 8]
|
|
}
|
|
|
|
fn test_range_dash_step() ! {
|
|
bf := parse_range('4-8/2', 0, 9)!
|
|
|
|
assert bf_to_ints(bf, 0) == [4, 6, 8]
|
|
}
|
|
|
|
// =====parse_part=====
|
|
fn test_part_single() ! {
|
|
assert parse_part('*', 0, 5)! == [0, 1, 2, 3, 4, 5]
|
|
}
|
|
|
|
fn test_part_multiple() ! {
|
|
assert parse_part('*/2,2/3', 1, 8)! == [1, 2, 3, 5, 7, 8]
|
|
}
|