/title "Columns" /display
/title "Rows" /transpose.
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Columns
╭────────╮
│ a │
│a3│2│
╰──┴─╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([2-d pivot table])
/title "Column x Row" /move "a" column /display
/title "Row x Column" /transpose
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Columns
╭────────┬────────┬────────╮
│ b1 │ b2 │ b3 │
│a3│ 2│ 5│ 8│
╰──┴──┴──┴──╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([2-d pivot table - dimension labels])
/title "Row x Column - Corner" /transpose /look rowlabels=corner /display
/title "Row x Column - Nested" /look rowlabels=nested
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Columns
╭──────────────────────────╮
│ b │
│ a3│ 2│ 5│ 8│
╰────┴──┴──┴──╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([2-d pivot table - groups])
/title "Row x Column - delete b1" /cells[all,0]=delete /look empty=hide /display
/title "Row x Column - delete b1 - show empty" /look empty=show.
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Columns
╭─────────────────┬────────╮
│ bg1 │ │
│ a3│ │ │ 8│
╰──────┴──┴──┴──╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([2-d pivot table - layers])
/title "Column (All Layers)" /look layers=all /display
/title "Row (All Layers)" /transpose /look layers=all
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Column x b1
-b: b1
+b1
╭──┬──┬──╮
│a1│a2│a3│
├──┼──┼──┤
╰──┴──┴──╯
Row x b1
-b: b1
+b1
╭──┬─╮
│a1│0│
│a2│1│
╰──┴─╯
Column x b2
-b: b2
+b2
╭──┬──┬──╮
│a1│a2│a3│
├──┼──┼──┤
╰──┴──┴──╯
Row x b2
-b: b2
+b2
╭──┬─╮
│a1│3│
│a2│4│
╰──┴─╯
Column (All Layers)
-b: b1
+b1
╭──┬─╮
│a1│0│
│a2│1│
╰──┴─╯
Column (All Layers)
-b: b2
+b2
╭──┬─╮
│a1│3│
│a2│4│
╰──┴─╯
Column (All Layers)
-b: b3
+b3
╭──┬─╮
│a1│6│
│a2│7│
╰──┴─╯
Row (All Layers)
-b: b1
+b1
╭──┬──┬──╮
│a1│a2│a3│
├──┼──┼──┤
╰──┴──┴──╯
Row (All Layers)
-b: b2
+b2
╭──┬──┬──╮
│a1│a2│a3│
├──┼──┼──┤
╰──┴──┴──╯
Row (All Layers)
-b: b3
+b3
╭──┬──┬──╮
│a1│a2│a3│
├──┼──┼──┤
│ 6│ 7│ 8│
╰──┴──┴──╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
+AT_CLEANUP
+
+AT_SETUP([3-d pivot table - layers])
+AT_DATA([pivot.txt], [[
+/layer "a"("a1", "a2", "a3")
+/layer "b"("b1", "b2", "b3", "b4")
+/col "c"("c1", "c2", "c3", "c4", "c5")
+/cell[all, all, all]
+/title "Column x b1 x a1" /display
+/title "Column x b2 x a1" /show layer 0 1 /display
+/title "Column x b3 x a2" /show layer 1 2 /display
+]])
+AT_DATA([expout], [dnl
+Column x b1 x a1
+b1
+a1
+╭──┬──┬──┬──┬──╮
+│c1│c2│c3│c4│c5│
+├──┼──┼──┼──┼──┤
+│ 0│12│24│36│48│
+╰──┴──┴──┴──┴──╯
+
+Column x b2 x a1
+b2
+a1
+╭──┬──┬──┬──┬──╮
+│c1│c2│c3│c4│c5│
+├──┼──┼──┼──┼──┤
+│ 3│15│27│39│51│
+╰──┴──┴──┴──┴──╯
+
+Column x b3 x a2
+b3
+a2
+╭──┬──┬──┬──┬──╮
+│c1│c2│c3│c4│c5│
+├──┼──┼──┼──┼──┤
+│ 7│19│31│43│55│
+╰──┴──┴──┴──┴──╯
+])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table title and caption])
/title "(Not Shown)" /caption "Caption Only" /show title=no caption=yes /display
/title "(Not Shown)" /caption "(Not Shown)" /show title=no caption=no
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Title + Caption
╭──┬──┬──╮
│ │a1│a2│
│b2│ 2│ 3│
╰──┴──┴──╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table footnotes])
/display
/title "Pivot Table with Numeric Superscript Footnotes"[footnote 0]
/look marker=numeric level=super
+/display
+/title "Hidden Footnote"[footnote 0]
+/footnote[0] "First footnote" marker="*" hide
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0],
+AT_DATA([expout],
[[Pivot Table with Alphabetic Subscript Footnotes[*]
╭────────────┬──────────────────╮
│ │ A[*] │
Caption[*]
*. First footnote
2. Second footnote
+
+Hidden Footnote[*]
+╭────────────┬──────────────────╮
+│ │ A[*] │
+│ ├───────┬──────────┤
+│Corner[*][2]│ B[2] │ C[*][2] │
+├────────────┼───────┼──────────┤
+│D[2] E[*] │ .00│ 1.00[*]│
+│ F[*][2]│2.00[2]│3.00[*][2]│
+╰────────────┴───────┴──────────╯
+Caption[*]
+2. Second footnote
]])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table with no dimensions])
AT_DATA([pivot.txt], [[
/title "No Dimensions"
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
No Dimensions
╭╮
╰╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table with empty dimensions])
/title "Two Empty Dimensions" /row "b"*() /display
/title "Three Dimensions, Two Empty" /row "c"("c1", "c2")
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
One Empty Dimension
Two Empty Dimensions
Three Dimensions, Two Empty
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table with empty groups])
/look empty=show
/display
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Default Title
╭──┬──┬──╮
│ │a1│a3│
│b3│ 2│ 3│
╰──┴──┴──╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table - category and dimension borders])
"cat-col-vert" (dashed "red")
/title "Category and Dimension Borders"
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
Category and Dimension Borders
bg1 │
╶╌╌╌╌╌╌╌╌┬╌╌╌╌╌╌╌╌┤
│ ├╌╌╌╌╌┼╌╌+╌╌┼╌╌┼╌╌+╌╌┼╌╌┼╌╌+╌╌
│ ┊c3 72│73┊74│75│76┊77│78│79┊80
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
AT_SETUP([pivot table - small numbers])
/cell[8, 1, 1] = -.00000001
/cell[9, 1, 1] = -.000000001
]])
-AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [dnl
+AT_DATA([expout], [dnl
small numbers
╭────────┬─────────────────────────────────────╮
│ │ result class │
│-9 │1.00E-009│1.00E-009│ .00│ .00│
╰────────┴─────────┴─────────┴────────┴────────╯
])
+AT_CHECK([pivot-table-test --table-look $srcdir/output/look.stt pivot.txt --box unicode], [0], [expout])
+AT_CHECK([pspp-output -O box=unicode convert render.spv -], [0], [expout])
AT_CLEANUP
\ No newline at end of file