diff options
Diffstat (limited to 'archive/tests')
-rw-r--r-- | archive/tests/1/a.f90 | 11 | ||||
-rw-r--r-- | archive/tests/1/b.f90 | 10 | ||||
-rw-r--r-- | archive/tests/1/fpm.toml | 2 | ||||
-rw-r--r-- | archive/tests/1/main.f90 | 8 | ||||
-rw-r--r-- | archive/tests/2/fpm.toml | 2 | ||||
-rw-r--r-- | archive/tests/2/main.f90 | 5 | ||||
-rw-r--r-- | archive/tests/cli.rs | 103 |
7 files changed, 0 insertions, 141 deletions
diff --git a/archive/tests/1/a.f90 b/archive/tests/1/a.f90 deleted file mode 100644 index a4f64a2..0000000 --- a/archive/tests/1/a.f90 +++ /dev/null @@ -1,11 +0,0 @@ -module a -use b, only: g -implicit none - -contains - - subroutine f() - call g() - end subroutine - -end module diff --git a/archive/tests/1/b.f90 b/archive/tests/1/b.f90 deleted file mode 100644 index 8b57633..0000000 --- a/archive/tests/1/b.f90 +++ /dev/null @@ -1,10 +0,0 @@ -module b -implicit none - -contains - - subroutine g() - print *, "g()" - end subroutine - -end module diff --git a/archive/tests/1/fpm.toml b/archive/tests/1/fpm.toml deleted file mode 100644 index c7d48a4..0000000 --- a/archive/tests/1/fpm.toml +++ /dev/null @@ -1,2 +0,0 @@ -[dependencies] -a = "4.0.0" diff --git a/archive/tests/1/main.f90 b/archive/tests/1/main.f90 deleted file mode 100644 index d886be3..0000000 --- a/archive/tests/1/main.f90 +++ /dev/null @@ -1,8 +0,0 @@ -program test1 -use a, only: f -implicit none - -call f() - -print *, "TEST1 OK" -end diff --git a/archive/tests/2/fpm.toml b/archive/tests/2/fpm.toml deleted file mode 100644 index c7d48a4..0000000 --- a/archive/tests/2/fpm.toml +++ /dev/null @@ -1,2 +0,0 @@ -[dependencies] -a = "4.0.0" diff --git a/archive/tests/2/main.f90 b/archive/tests/2/main.f90 deleted file mode 100644 index bd820eb..0000000 --- a/archive/tests/2/main.f90 +++ /dev/null @@ -1,5 +0,0 @@ -program test2 -implicit none - -print *, "TEST2 OK" -end diff --git a/archive/tests/cli.rs b/archive/tests/cli.rs deleted file mode 100644 index b099721..0000000 --- a/archive/tests/cli.rs +++ /dev/null @@ -1,103 +0,0 @@ -use assert_cmd::prelude::OutputAssertExt; // Add methods on commands -use predicates::prelude::{predicate, PredicateBooleanExt}; // Used for writing assertions -#[cfg(unix)] -use std::os::unix::process::ExitStatusExt; - -pub trait Success2 { - // Our own function with better reporting of errors - fn success2(self) -> Self; -} - -#[cfg(unix)] -fn get_signal(status: std::process::ExitStatus) -> Option<i32> { - status.signal() -} - -#[cfg(not(unix))] -fn get_signal(_status: std::process::ExitStatus) -> Option<i32> { - None -} - -impl Success2 for assert_cmd::assert::Assert { - fn success2(self) -> Self { - if !self.get_output().status.success() { - let output = self.get_output(); - let code = output.status.code(); - println!("status: {}", output.status); - println!("stdout: {}", String::from_utf8_lossy(&output.stdout)); - println!("stderr: {}", String::from_utf8_lossy(&output.stderr)); - if cfg!(unix) { - if code.is_none() { - let signal = get_signal(output.status).unwrap(); - panic!("INTERRUPTED with signal: {}", signal); - } - } - let actual_code = code.unwrap(); - println!("code: {}", actual_code); - panic!("Non zero exit code"); - } - self - } -} - -fn fpm_bin() -> std::process::Command { - let mut fpm_bin_relative: std::path::PathBuf = ["target", "debug", "fpm"].iter().collect(); - fpm_bin_relative.set_extension(std::env::consts::EXE_EXTENSION); - let fpm_bin_absolute = std::fs::canonicalize(fpm_bin_relative).unwrap(); - std::process::Command::new(fpm_bin_absolute.to_str().unwrap()) -} - -#[test] -fn test_help() { - let mut cmd = fpm_bin(); - cmd.arg("--help"); - cmd.assert() - .success2() - .stdout( - predicate::str::contains("--help Prints help information")); -} - - -#[test] -fn test_1() { - let mut build = fpm_bin(); - build.arg("build") - .arg("--target-dir") - .arg("build-test") - .current_dir("tests/1"); - build.assert() - .success2() - .stdout(predicate::str::contains("Built target p1") - .and(predicate::str::contains("TEST1 OK").not())); - - let mut run = fpm_bin(); - run.arg("run") - .arg("--target-dir") - .arg("build-test") - .current_dir("tests/1"); - run.assert() - .success2() - .stdout(predicate::str::contains("TEST1 OK")); -} - -#[test] -fn test_2() { - let mut build = fpm_bin(); - build.arg("build") - .arg("--target-dir") - .arg("build-test") - .current_dir("tests/2"); - build.assert() - .success2() - .stdout(predicate::str::contains("Built target p1") - .and(predicate::str::contains("TEST2 OK").not())); - - let mut run = fpm_bin(); - run.arg("run") - .arg("--target-dir") - .arg("build-test") - .current_dir("tests/2"); - run.assert() - .success2() - .stdout(predicate::str::contains("TEST2 OK")); -} |