Test roll preservation/roll clearing:

sdr> /program=Program.A2; setFormation(Formation.SQUARED_SET)
|      3Gv  3Bv
| 
| 4B>            2G<
| 
| 4G>            2B<
| 
|      1B^  1G^
sdr> heads lead right; hinge
| 4G^  4Bv  3B^  3Gv  1G^  1Bv  2B^  2Gv
sdr> boys run
| 4B^  4G^  3Gv  3Bv  1B^  1G^  2Gv  2Bv
sdr> /// only the boys can roll
sdr> roll
| 4B>  4G^  3Gv  3B<  1B>  1G^  2Gv  2B<
sdr> girls trade
| 4B>  3G^  4Gv  3B<  1B>  2G^  1Gv  2B<
sdr> /// boys can't roll anymore
sdr> roll
| 4B>  3G>  4G<  3B<  1B>  2G>  1G<  2B<
sdr> /// calling a new distinct call clears the roll, eg:
sdr> /setFormation(Formation.SQUARED_SET)
|      3Gv  3Bv
| 
| 4B>            2G<
| 
| 4G>            2B<
| 
|      1B^  1G^
sdr> heads lead right ; extend
| 4B>  1B>
| 
| 3G<  2G<
| 
| 4G>  1G>
| 
| 3B<  2B<
sdr> swing
| 3G>  2G>
| 
| 4B<  1B<
| 
| 3B>  2B>
| 
| 4G<  1G<
sdr> slip
| 3G>  2G>
| 
| 3B<  2B<
| 
| 4B>  1B>
| 
| 4G<  1G<
sdr> /// only the slippers roll
sdr> roll
| 3G>  2G>
| 
| 3Bv  2Bv
| 
| 4B^  1B^
| 
| 4G<  1G<
sdr> /// test that swing thru preserves roll for everyone
sdr> centers left touch 1/4
| 3G>  2G>
| 
| 4B<  1B<
| 
| 3B>  2B>
| 
| 4G<  1G<
sdr> swing thru and roll
| 4Bv  1Bv
| 
| 4Gv  1Gv
| 
| 3G^  2G^
| 
| 3B^  2B^
sdr> /exit