78 lines
2.3 KiB
V
78 lines
2.3 KiB
V
import v.ast
|
|
import v.cflag
|
|
|
|
const (
|
|
module_name = 'main'
|
|
cdefines = []string{}
|
|
no_name = ''
|
|
no_flag = ''
|
|
no_os = ''
|
|
)
|
|
|
|
fn test_parse_valid_cflags() {
|
|
mut t := ast.new_table()
|
|
expected_flags := [
|
|
make_flag('freebsd', '-I', '/usr/local/include/freetype2'),
|
|
make_flag('linux', '-l', 'glfw'),
|
|
make_flag('mingw', no_name, '-mwindows'),
|
|
make_flag('solaris', '-L', '/opt/local/lib'),
|
|
make_flag('darwin', '-framework', 'Cocoa'),
|
|
make_flag('windows', '-l', 'gdi32'),
|
|
make_flag(no_os, '-l', 'mysqlclient'),
|
|
make_flag(no_os, no_name, '-test'),
|
|
make_flag('linux', '-I', '/usr/include/SDL2'),
|
|
make_flag('linux', '-D', '_REENTRANT'),
|
|
make_flag('linux', '-L', '/usr/lib/x86_64-linux-gnu'),
|
|
make_flag('linux', '-l', 'SDL2'),
|
|
]
|
|
parse_valid_flag(mut t, '-lmysqlclient')
|
|
parse_valid_flag(mut t, '-test')
|
|
parse_valid_flag(mut t, 'darwin -framework Cocoa')
|
|
parse_valid_flag(mut t, 'freebsd -I/usr/local/include/freetype2')
|
|
parse_valid_flag(mut t, 'linux -lglfw')
|
|
parse_valid_flag(mut t, 'mingw -mwindows')
|
|
parse_valid_flag(mut t, 'solaris -L/opt/local/lib')
|
|
parse_valid_flag(mut t, 'windows -lgdi32')
|
|
parse_valid_flag(mut t, 'linux -I/usr/include/SDL2 -D_REENTRANT -L/usr/lib/x86_64-linux-gnu -lSDL2')
|
|
assert t.cflags.len == expected_flags.len
|
|
for f in expected_flags {
|
|
assert t.has_cflag(f)
|
|
}
|
|
}
|
|
|
|
fn test_parse_invalid_cflags() {
|
|
mut t := ast.new_table()
|
|
// -I, -L, -l must have values
|
|
assert_parse_invalid_flag(mut t, 'windows -l')
|
|
assert_parse_invalid_flag(mut t, '-I')
|
|
assert_parse_invalid_flag(mut t, '-L')
|
|
// OS/compiler name only is not allowed
|
|
assert_parse_invalid_flag(mut t, 'darwin')
|
|
assert_parse_invalid_flag(mut t, 'freebsd')
|
|
assert_parse_invalid_flag(mut t, 'linux')
|
|
assert_parse_invalid_flag(mut t, 'mingw')
|
|
assert_parse_invalid_flag(mut t, 'solaris')
|
|
assert_parse_invalid_flag(mut t, 'windows')
|
|
// Empty flag is not allowed
|
|
assert_parse_invalid_flag(mut t, no_flag)
|
|
assert t.cflags.len == 0
|
|
}
|
|
|
|
fn parse_valid_flag(mut t ast.Table, flag string) {
|
|
t.parse_cflag(flag, module_name, cdefines) or {}
|
|
}
|
|
|
|
fn assert_parse_invalid_flag(mut t ast.Table, flag string) {
|
|
t.parse_cflag(flag, module_name, cdefines) or { return }
|
|
assert false
|
|
}
|
|
|
|
fn make_flag(os string, name string, value string) cflag.CFlag {
|
|
return cflag.CFlag{
|
|
mod: module_name
|
|
os: os
|
|
name: name
|
|
value: value
|
|
}
|
|
}
|