Skip to content

refactor: change in structure of stdlib in order to compiler it using fypp script #675

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 17 commits into
base: master
Choose a base branch
from
Open

refactor: change in structure of stdlib in order to compiler it using fypp script #675

Changes from 1 commit
Commits
Show all changes
17 commits
Select commit Hold shift + click to select a range
c46d76e
refactor: change in structure of stdlib in order to compiler it using…
arteevraina Sep 6, 2022
6d0bbbc
fix: skip tests in test_mean based on MAXRANK
arteevraina Sep 8, 2022
4e4b0d2
refactor: remove nmhash.c file
arteevraina Sep 8, 2022
21212c8
refactor: remove test_always_skip & test_always_fail files
arteevraina Sep 8, 2022
35ed9b6
fix: failing ci
arteevraina Sep 8, 2022
1608e14
fix: append include directory later
arteevraina Sep 8, 2022
d036311
fix: remove test_always_fail & test_always_skip declaration from CMak…
arteevraina Sep 9, 2022
0d4fc91
fix: failing ci for common.fypp
arteevraina Sep 9, 2022
e88c922
refactor: replace Rank 7 with Rank > 7
arteevraina Sep 9, 2022
9877ed4
fix: remove test_always_skip & test_always_fail reference from deploy…
arteevraina Sep 9, 2022
2a6c429
fix: fpm deployment script for removing files
arteevraina Sep 9, 2022
21748c0
fix: replace path of common.fypp
arteevraina Sep 9, 2022
f941556
fix: remove reference of common.fypp
arteevraina Sep 9, 2022
5904f32
Revert "fix: replace path of common.fypp"
arteevraina Sep 10, 2022
cdebc20
fix: fyflags by appending include directory
arteevraina Sep 10, 2022
2b63915
docs: added include directory in documentation markdown
arteevraina Sep 24, 2022
7c99e70
docs: added documentation regarding building with fypp script
arteevraina Sep 24, 2022
File filter

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
fix: skip tests in test_mean based on MAXRANK
  • Loading branch information
@arteevraina
arteevraina committed Sep 25, 2022
commit 6d0bbbc7edb5b2860938a30a47a1317cc13731c1
96 changes: 93 additions & 3 deletions test/stats/test_mean_f03.fypp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
#:set NRANK = 4

module test_stats_meanf03
use testdrive, only : new_unittest, unittest_type, error_type, check
use testdrive, only : new_unittest, unittest_type, error_type, check, skip_test
use stdlib_stats, only: mean
use stdlib_kinds, only : int8, int16, int32, int64, sp, dp, xdp, qp
use, intrinsic :: ieee_arithmetic, only : ieee_is_nan
Expand Down Expand Up @@ -65,25 +65,36 @@ contains
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, mean(d8_${k1}$), sum(real(d8_${k1}$, dp))/real(size(d8_${k1}$), dp)&
, 'mean(d8_${k1}$): uncorrect answer'&
, thr = dptol)
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_all_optmask_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, ieee_is_nan(mean(d8_${k1}$, .false.))&
, 'mean(d8_${k1}$, .false.): uncorrect answer')
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error&
, sum(abs(mean(d8_${k1}$, ${dim}$) -&
Expand All @@ -92,12 +103,17 @@ contains
)
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_optmask_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error


#:if MAXRANK > 7
call check(error, ieee_is_nan(mean(d1_${k1}$, 1, .false.))&
, 'mean(d1_${k1}$, 1, .false.): uncorrect answer'&
)
Expand All @@ -108,23 +124,33 @@ contains
, 'mean(d8_${k1}$, ${dim}$, .false.): uncorrect answer')
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_mask_all_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, mean(d8_${k1}$, d8_${k1}$ > 0)&
, sum(real(d8_${k1}$, dp), d8_${k1}$ > 0)/real(count(d8_${k1}$ > 0), dp)&
, 'mean(d8_${k1}$, d8_${k1}$ > 0): uncorrect answer'&
, thr = dptol)
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_mask_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error&
, sum(abs(mean(d8_${k1}$, ${dim}$, d8_${k1}$ > 0) -&
Expand All @@ -133,6 +159,10 @@ contains
)
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine
#:endfor

Expand All @@ -141,25 +171,36 @@ contains
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, mean(d8_${k1}$), sum(d8_${k1}$)/real(size(d8_${k1}$), ${k1}$)&
, 'mean(d8_${k1}$): uncorrect answer'&
, thr = ${k1}$tol)
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_all_optmask_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, ieee_is_nan(mean(d8_${k1}$, .false.))&
, 'mean(d8_${k1}$, .false.): uncorrect answer')
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error&
, sum(abs(mean(d8_${k1}$, ${dim}$) -&
Expand All @@ -168,34 +209,49 @@ contains
)
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_optmask_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error, any(ieee_is_nan(mean(d8_${k1}$, ${dim}$, .false.)))&
, 'mean(d8_${k1}$, ${dim}$, .false.): uncorrect answer')
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_mask_all_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error


#:if MAXRANK > 7
call check(error, mean(d8_${k1}$, d8_${k1}$ > 0)&
, sum(d8_${k1}$, d8_${k1}$ > 0)/real(count(d8_${k1}$ > 0), ${k1}$)&
, 'mean(d8_${k1}$, d8_${k1}$ > 0): uncorrect answer'&
, thr = ${k1}$tol)
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_mask_${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error&
, sum(abs(mean(d8_${k1}$, ${dim}$, d8_${k1}$ > 0) -&
Expand All @@ -204,6 +260,10 @@ contains
)
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine
#:endfor

Expand All @@ -212,25 +272,36 @@ contains
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, mean(d8_c${k1}$), sum(d8_c${k1}$)/real(size(d8_c${k1}$), ${k1}$)&
, 'mean(d8_c${k1}$): uncorrect answer'&
, thr = ${k1}$tol)
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_all_optmask_c${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, ieee_is_nan(real(mean(d8_c${k1}$, .false.)))&
, 'mean(d8_c${k1}$, .false.): uncorrect answer')
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_c${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error&
, sum(abs(mean(d8_c${k1}$, ${dim}$) -&
Expand All @@ -239,34 +310,49 @@ contains
)
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_optmask_c${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error, any(ieee_is_nan(real(mean(d8_c${k1}$, ${dim}$, .false.))))&
, 'mean(d8_c${k1}$, ${dim}$, .false.): uncorrect answer')
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_mask_all_c${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
call check(error, mean(d8_c${k1}$, d8_c${k1}$%re > 0)&
, sum(d8_c${k1}$, d8_c${k1}$%re > 0)/real(count(d8_c${k1}$%re > 0), ${k1}$)&
, 'mean(d8_c${k1}$, d8_c${k1}$%re > 0): uncorrect answer'&
, thr = ${k1}$tol)
if (allocated(error)) return

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine

subroutine test_stats_meanf03_mask_c${k1}$(error)
!> Error handling
type(error_type), allocatable, intent(out) :: error

#:if MAXRANK > 7
#:for dim in range(1, 9)
call check(error&
, sum(abs(mean(d8_c${k1}$, ${dim}$, d8_c${k1}$%re > 0) -&
Expand All @@ -275,6 +361,10 @@ contains
)
if (allocated(error)) return
#:endfor

#:else
call skip_test(error, "Rank 7 is not supported")
#:endif
end subroutine
#:endfor

Expand Down