[skip sc] more testing

This commit is contained in:
Sharan Roongta 2020-10-05 19:13:40 +02:00
parent 46973508a2
commit 6dff0396b6
2 changed files with 29 additions and 5 deletions

View File

@ -1,6 +1,8 @@
---
homogenization: homogenization:
SX: SX:
mech: {type: none} mech: {type:
none}
microstructure: microstructure:
- constituents: - constituents:
- fraction: 1.0 - fraction: 1.0
@ -9,7 +11,8 @@ microstructure:
homogenization: SX homogenization: SX
- constituents: - constituents:
- fraction: 1.0 - fraction: 1.0
orientation: [0.7936696712125002, -0.28765777461664166, -0.3436487135089419, 0.4113964260949434] orientation: [0.7936696712125002, -0.28765777461664166,
-0.3436487135089419, 0.4113964260949434]
phase: Aluminum phase: Aluminum
homogenization: SX homogenization: SX
- constituents: - constituents:
@ -19,7 +22,12 @@ microstructure:
homogenization: SX homogenization: SX
- constituents: - constituents:
- fraction: 1.0 - fraction: 1.0
orientation: [0.28645844315788244, -0.022571491243423537, -0.467933059311115, -0.8357456192708106] orientation: [0.28645844315788244,
-0.022571491243423537,
-0.467933059311115, -0.8357456192708106]
phase: Aluminum phase: Aluminum
homogenization: SX homogenization: SX
- constituents: - constituents:

View File

@ -810,19 +810,35 @@ subroutine selfTest
if (.not. to_flow(flow_mixed_braces) == flow) error stop 'to_flow' if (.not. to_flow(flow_mixed_braces) == flow) error stop 'to_flow'
end block basic_flow end block basic_flow
multi_line_flow: block multi_line_flow1: block
character(len=*), parameter :: flow_multi = & character(len=*), parameter :: flow_multi = &
"%YAML 1.1"//IO_EOL//& "%YAML 1.1"//IO_EOL//&
"---"//IO_EOL//& "---"//IO_EOL//&
"a: [b,"//IO_EOL//& "a: [b,"//IO_EOL//&
"c: "//IO_EOL//& "c: "//IO_EOL//&
"d, e]"//IO_EOL "d, e]"//IO_EOL
character(len=*), parameter :: flow = & character(len=*), parameter :: flow = &
"{a: [b, {c: d}, e]}" "{a: [b, {c: d}, e]}"
if( .not. to_flow(flow_multi) == flow) error stop 'to_flow' if( .not. to_flow(flow_multi) == flow) error stop 'to_flow'
end block multi_line_flow end block multi_line_flow1
multi_line_flow2: block
character(len=*), parameter :: flow_multi = &
"%YAML 1.1"//IO_EOL//&
"---"//IO_EOL//&
"-"//IO_EOL//&
" a: {b:"//IO_EOL//&
"[c,"//IO_EOL//&
"d"//IO_EOL//&
"e, f]}"//IO_EOL
character(len=*), parameter :: flow = &
"[{a: {b: [c, d e, f]}}]"
if( .not. to_flow(flow_multi) == flow) error stop 'to_flow'
end block multi_line_flow2
basic_mixed: block basic_mixed: block
character(len=*), parameter :: block_flow = & character(len=*), parameter :: block_flow = &