package Ġorg . pure script . psi . data Ċ Ċ import Ġcom . intellij . test Framework . fixtures . Base Platform TestCase Ċ import Ġorg . pure script . getData Constructor Ċ Ċ class ĠPS Data Constructor Test Ġ: ĠBase Platform TestCase () Ġ{ ĊĊĠĠĠ Ġfun Ġ` test Ġparses Ġsimple Ġconstructor `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġdata Constructor Ġ= Ġmy Fixture . configure By Text ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" Foo . p urs ", ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmodule ĠFoo Ġwhere ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġdata ĠBar Ġ= ĠQu x ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ""" . trim Indent () ĊĠĠĠĠĠĠĠ Ġ). getData Constructor () ĊĊĠĠĠĠĠĠĠ ĠassertEquals (" Qu x ", Ġdata Constructor . name ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġ` test Ġparses Ġconstructor Ġwith Ġtype Ġvar `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġdata Constructor Ġ= Ġmy Fixture . configure By Text ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" Foo . p urs ", ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmodule ĠFoo Ġwhere ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġdata ĠBar Ġa Ġ= ĠQu x Ġa ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ""" . trim Indent () ĊĠĠĠĠĠĠĠ Ġ). getData Constructor () ĊĊĠĠĠĠĠĠĠ ĠassertEquals (" Qu x ", Ġdata Constructor . name ) ĊĠĠĠĠĠĠĠ Ġassert Size ( 1 , Ġdata Constructor . type Atoms ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġ` test Ġparses Ġconstructor Ġwith Ġparent hesized Ġtype Ġatoms `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġdata Constructor Ġ= Ġmy Fixture . configure By Text ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" Foo . p urs ", ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmodule ĠFoo Ġwhere ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġdata ĠBar Ġ= ĠQu x Ġ( List ĠInt ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ""" . trim Indent () ĊĠĠĠĠĠĠĠ Ġ). getData Constructor () ĊĊĠĠĠĠĠĠĠ ĠassertEquals (" Qu x ", Ġdata Constructor . name ) ĊĠĠĠĠĠĠĠ Ġassert Size ( 1 , Ġdata Constructor . type Atoms ) ĊĠĠĠ Ġ} Ċ } Ċ