v/vlib/v/ast/cflags_test.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
}
}