// vtest build: !self_sandboxed_packaging? && !sanitized_job?
// .out file:
// To test a panic, remove everything after the long `===` line
// You can also remove the line with 'line:' e.g. for a builtin fn
import os
import rand
import term
import v.util.diff
import v.util.vtest

@[markused]
const turn_off_vcolors = os.setenv('VCOLORS', 'never', true)

const v_ci_ubuntu_musl = os.getenv('V_CI_UBUNTU_MUSL').len > 0

const skip_files = [
	'do_not_remove_this',
	'tmpl_parse_html.vv', // skipped, due to a V template compilation problem after b42c824
]

fn test_all() {
	mut total_oks := 0
	mut total_oks_panic := 0
	mut total_skips := 0
	mut total_errors := 0
	vexe := os.getenv('VEXE')
	vroot := os.dir(vexe)
	os.chdir(vroot) or {}
	dir := 'vlib/v/slow_tests/inout'
	mut files := os.ls(dir) or { panic(err) }
	files.sort()
	tests := files.filter(it.ends_with('.vv') || it.ends_with('.vsh'))
	if tests.len == 0 {
		println('no compiler tests found')
		assert false
	}
	paths := vtest.filter_vtest_only(tests, basepath: dir)
	println('Found ${paths.len} .vv/.vsh files in ${dir} ...')
	for idx, path in paths {
		vprint('${idx + 1:3}/${paths.len:-3} ${path} ')
		fname := os.file_name(path)
		if fname in skip_files {
			vprintln(term.bright_yellow('SKIP'))
			total_skips++
			continue
		}
		if v_ci_ubuntu_musl {
			if fname.contains('orm_') {
				// the ORM programs use db.sqlite, which is not easy to install in a way usable by ubuntu-musl, so just skip them:
				vprintln(term.bright_yellow('SKIP on ubuntu musl'))
				continue
			}
		}
		program := path
		tname := rand.ulid()
		tbase := os.join_path(os.vtmp_dir(), tname)
		texe := if os.user_os() == 'windows' { '${tbase}.exe' } else { tbase }
		compilation :=
			os.execute('${os.quoted_path(vexe)} -o ${os.quoted_path(tbase)} -cflags "-w" -cg ${os.quoted_path(program)}')
		if compilation.exit_code < 0 {
			panic(compilation.output)
		}
		if compilation.exit_code != 0 {
			panic('compilation failed: ${compilation.output}')
		}
		res := os.execute(os.quoted_path(texe))
		if res.exit_code < 0 {
			vprintln('nope')
			panic(res.output)
		}
		$if windows {
			os.rm(texe) or {}
			$if msvc {
				os.rm('${tbase}.ilk') or {}
				os.rm('${tbase}.pdb') or {}
			}
		} $else {
			os.rm(texe) or {}
		}
		// println('============')
		// println(res.output)
		// println('============')
		mut found := res.output.trim_right('\r\n').replace('\r\n', '\n')
		mut expected := os.read_file(program.replace('.vv', '').replace('.vsh', '') + '.out') or {
			panic(err)
		}
		expected = expected.trim_right('\r\n').replace('\r\n', '\n')
		if expected.contains('================ V panic ================') {
			// panic include backtraces and absolute file paths, so can't do char by char comparison
			n_found := normalize_panic_message(found, vroot)
			n_expected := normalize_panic_message(expected, vroot)
			if found.contains('================ V panic ================') {
				if n_found.starts_with(n_expected) {
					vprintln(term.green('OK (panic)'))
					total_oks_panic++
					continue
				} else {
					// Both have panics, but there was a difference...
					// Pass the normalized strings for further reporting.
					// There is no point in comparing the backtraces too.
					found = n_found
					expected = n_expected
				}
			}
		}
		if expected != found {
			println(term.red('FAIL'))
			if diff_ := diff.compare_text(expected, found) {
				println(term.header('difference:', '-'))
				println(diff_)
			} else {
				println(err)
				println(term.header('expected:', '-'))
				println(expected)
				println(term.header('found:', '-'))
				println(found)
			}
			println(term.h_divider('-'))
			total_errors++
		} else {
			vprintln(term.green('OK'))
			total_oks++
		}
	}
	println('>>> Summary: files: ${paths.len}, ok: ${total_oks}, ok panics: ${total_oks_panic}, skipped: ${total_skips}, errors: ${total_errors} .')
	assert total_errors == 0
}

fn normalize_panic_message(message string, vroot string) string {
	mut msg := message.all_before('=========================================')
	// change windows to nix path
	s := vroot.replace(os.path_separator, '/')
	// remove vroot
	msg = msg.replace(s + '/', '')
	msg = msg.trim_space()
	return msg
}

@[if !silent ?]
fn vprint(msg string) {
	print(msg)
}

@[if !silent ?]
fn vprintln(msg string) {
	println(msg)
}