test-parser-sps.R

context("SPSS setup parse")

test_that("Right number of columns", {
  skip_on_cran()
  expect_equal(nrow(sac_parsed_sps$setup),          197)
  expect_equal(nrow(sex_offender_parsed_sps$setup),  34)
  expect_equal(nrow(ucr1960_parsed_sps$setup),     1448)
  expect_equal(nrow(weimar_parsed_sps$setup),        23)
  expect_equal(nrow(acs_parsed_sps$setup),            6)
  expect_equal(nrow(nibrs_parsed_sps$setup),         20)
  expect_equal(nrow(parole_parsed_sps$setup),        59)
  expect_equal(nrow(prisoners_parsed_sps$setup),    201)
  expect_equal(nrow(ca_vital_parsed_sps$setup),      59)
  expect_equal(nrow(crosswalk_parsed_sps$setup),     29)
  expect_equal(nrow(ucr1985_parsed_sps$setup),     1458)
  expect_equal(nrow(ucr1986_parsed_sps$setup),     1458)
  expect_equal(nrow(ucr2000_parsed_sps$setup),     1448)
  expect_equal(nrow(jail_1987_parsed_sps$setup),    176)
  expect_equal(nrow(jail_2010_parsed_sps$setup),    200)
  expect_equal(nrow(corrections_parsed_sps$setup),   14)
  expect_equal(nrow(sadc_parsed_sps$setup),         314)
  expect_equal(nrow(crosswalk2012_parsed_sps$setup), 46)
  expect_equal(nrow(dutch_election_parsed_sps$setup), 878)
  expect_equal(nrow(well_being_parsed_sps$setup),   312)
  expect_equal(nrow(health_nutrition_parsed_sps$setup),  43)
  expect_equal(nrow(ad_health_parsed_sps$setup),  5)
  expect_equal(nrow(india_human_parsed_sps$setup),  337)
  expect_equal(nrow(step_in_parsed_sps$setup), 8)
  expect_equal(nrow(cps_1973_parsed_sps$setup), 269)
  expect_equal(nrow(census_police_parsed_sps$setup), 92)
  expect_equal(nrow(escolar_parsed_sps$setup), 1307)
  expect_equal(nrow(british_crime_teen_parsed_sps$setup), 374)
  expect_equal(nrow(drug_abuse_parsed_sps$setup),         337)
  expect_equal(nrow(detroit_parsed_sps$setup),            369)
  expect_equal(nrow(worry_parsed_sps$setup),              486)
  expect_equal(nrow(cps_2004_parsed_sps$setup),           286)

  expect_equal(nrow(cambridge_parsed_sps$setup), 880)
  expect_equal(nrow(guam_parsed_sps$setup), 115)
  expect_equal(nrow(china_2002_parsed_sps$setup), 259)
  expect_equal(nrow(china_1995_parsed_sps$setup), 102)
  expect_equal(nrow(china_1998_parsed_sps$setup), 51)
  expect_equal(nrow(indonesia_parsed_sps$setup), 10)
  expect_equal(nrow(UN_crime_parsed_sps$setup), 121)
  expect_equal(nrow(county_arrest_parsed_sps$setup), 19)
  expect_equal(nrow(escolar_2006_parsed_sps$setup), 3808)


  expect_equal(nrow(mtf_1999_parsed_sps$setup), 108)
  expect_equal(nrow(mtf_2003_parsed_sps$setup), 108)
  expect_equal(nrow(mtf_1990_parsed_sps$setup), 111)
  expect_equal(nrow(mtf_1989_parsed_sps$setup), 117)
  expect_equal(nrow(mtf_2004_parsed_sps$setup), 116)
  expect_equal(nrow(mtf_2002_parsed_sps$setup), 108)
  expect_equal(nrow(mtf_1993_parsed_sps$setup), 111)
  expect_equal(nrow(mtf_1991_parsed_sps$setup), 111)
  expect_equal(nrow(mtf_1992_parsed_sps$setup), 111)
  expect_equal(nrow(mtf_1979_parsed_sps$setup), 293)

  expect_equal(nrow(ca_sedd_2005_ahal_parsed_sps$setup), 6)




})

test_that("Column numbers are correct", {
  skip_on_cran()

  expect_equal(ca_sedd_2005_ahal_parsed_sps$setup$begin,
               c(1, 8, 21,
                 26, 28, 33))
  expect_equal(ca_sedd_2005_ahal_parsed_sps$setup$end,
               c(7, 20, 25,
                 27, 32, 36))


  expect_equal(tail(mtf_2019_parsed_sps$setup$begin),
               c(1264, 1266, 1268,
                 1270, 1272, 1274))
  expect_equal(tail(mtf_2019_parsed_sps$setup$end),
               c(1265, 1267, 1269,
                 1271, 1273, 1275))


  expect_equal(head(mtf_2019_parsed_sps$setup$begin),
               c(1, 6, 11,
                 16, 20, 21))
  expect_equal(head(mtf_2019_parsed_sps$setup$end),
               c(5, 10, 15,
                 19, 20, 35))


  expect_equal(head(missing_value_no_s_parsed_sps$setup$begin),
               c(1, 5, 6,
                 9, 10, 14))
  expect_equal(head(missing_value_no_s_parsed_sps$setup$end),
               c(4, 5, 8,
                 9, 13, 17))
  expect_equal(tail(missing_value_no_s_parsed_sps$setup$begin),
               c(2299, 2301, 2303,
                 2304, 2305, 2306))
  expect_equal(tail(missing_value_no_s_parsed_sps$setup$end),
               c(2300, 2302, 2303,
                 2304, 2305, 2306))


  expect_equal(head(mtf_1979_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_1979_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_1979_parsed_sps$setup$begin),
               c(299, 300, 301,
                 302, 306, 307))
  expect_equal(tail(mtf_1979_parsed_sps$setup$end),
               c(299, 300, 301,
                 305, 306, 307))

  expect_equal(head(mtf_1991_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_1991_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_1991_parsed_sps$setup$begin),
               c(116, 117, 118,
                 119, 123, 124))
  expect_equal(tail(mtf_1991_parsed_sps$setup$end),
               c(116, 117, 118,
                 122, 123, 124))


  expect_equal(head(mtf_1992_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_1992_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_1992_parsed_sps$setup$begin),
               c(116, 117, 118,
                 119, 123, 124))
  expect_equal(tail(mtf_1992_parsed_sps$setup$end),
               c(116, 117, 118,
                 122, 123, 124))



  expect_equal(head(mtf_1999_parsed_sps$setup$begin),
               c(1, 2, 3,
                 4, 10, 14))
  expect_equal(head(mtf_1999_parsed_sps$setup$end),
               c(1, 2, 3,
                 9, 13, 14))
  expect_equal(tail(mtf_1999_parsed_sps$setup$begin),
               c(210, 212, 214,
                 216, 218, 220))
  expect_equal(tail(mtf_1999_parsed_sps$setup$end),
               c(211, 213, 215,
                 217, 219, 224))


  expect_equal(head(mtf_2003_parsed_sps$setup$begin),
               c(1, 6, 7,
                 8, 9, 16))
  expect_equal(head(mtf_2003_parsed_sps$setup$end),
               c(5, 6, 7,
                 8, 15, 19))
  expect_equal(tail(mtf_2003_parsed_sps$setup$begin),
               c(213, 215, 217,
                 219, 221, 223))
  expect_equal(tail(mtf_2003_parsed_sps$setup$end),
               c(214, 216, 218,
                 220, 222, 224))


  expect_equal(head(mtf_1990_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_1990_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_1990_parsed_sps$setup$begin),
               c(116, 117, 118,
                 119, 123, 124))
  expect_equal(tail(mtf_1990_parsed_sps$setup$end),
               c(116, 117, 118,
                 122, 123, 124))


  expect_equal(head(mtf_1989_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_1989_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_1989_parsed_sps$setup$begin),
               c(122, 123, 124,
                 125, 129, 130))
  expect_equal(tail(mtf_1989_parsed_sps$setup$end),
               c(122, 123, 124,
                 128, 129, 130))


  expect_equal(head(mtf_2004_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_2004_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_2004_parsed_sps$setup$begin),
               c(121, 122, 123,
                 124, 128, 129))
  expect_equal(tail(mtf_2004_parsed_sps$setup$end),
               c(121, 122, 123,
                 127, 128, 129))


  expect_equal(head(mtf_2002_parsed_sps$setup$begin),
               c(1, 2, 3,
                 4, 10, 14))
  expect_equal(head(mtf_2002_parsed_sps$setup$end),
               c(1, 2, 3,
                 9, 13, 14))
  expect_equal(tail(mtf_2002_parsed_sps$setup$begin),
               c(210, 212, 214,
                 216, 218, 220))
  expect_equal(tail(mtf_2002_parsed_sps$setup$end),
               c(211, 213, 215,
                 217, 219, 224))


  expect_equal(head(mtf_1993_parsed_sps$setup$begin),
               c(1, 3, 4,
                 9, 14, 15))
  expect_equal(head(mtf_1993_parsed_sps$setup$end),
               c(2, 3, 8,
                 13, 14, 15))
  expect_equal(tail(mtf_1993_parsed_sps$setup$begin),
               c(116, 117, 118,
                 119, 123, 124))
  expect_equal(tail(mtf_1993_parsed_sps$setup$end),
               c(116, 117, 118,
                 122, 123, 124))



  expect_equal(head(escolar_2006_parsed_sps$setup$begin),
               c(1, 9, 14,
                 26, 76, 78))
  expect_equal(head(escolar_2006_parsed_sps$setup$end),
               c(8, 13, 25,
                 75, 77, 127))
  expect_equal(tail(escolar_2006_parsed_sps$setup$begin),
               c(43671, 43683, 43695,
                 43707, 43719, 43731))
  expect_equal(tail(escolar_2006_parsed_sps$setup$end),
               c(43682, 43694, 43706,
                 43718, 43730, 43742))




  expect_equal(head(british_crime_teen_parsed_sps$setup$begin), c(1, 7, 13,
                                                                  16, 18, 19))
  expect_equal(head(british_crime_teen_parsed_sps$setup$end),   c(6, 12, 15,
                                                                  17, 18, 19))
  expect_equal(tail(british_crime_teen_parsed_sps$setup$begin), c(685, 686, 690,
                                                                  691, 695, 696))
  expect_equal(tail(british_crime_teen_parsed_sps$setup$end),   c(685, 689, 690,
                                                                  694, 695, 697))


  expect_equal(head(drug_abuse_parsed_sps$setup$begin), c(1, 27, 53,
                                                          79, 105, 131))
  expect_equal(head(drug_abuse_parsed_sps$setup$end),   c(26, 52, 78,
                                                          104, 130, 156))
  expect_equal(tail(drug_abuse_parsed_sps$setup$begin), c(1161, 1165, 1180,
                                                          1195, 1210, 1212))
  expect_equal(tail(drug_abuse_parsed_sps$setup$end),   c(1164, 1179, 1194,
                                                          1209, 1211, 1215))


  expect_equal(head(detroit_parsed_sps$setup$begin), c(1, 9, 17,
                                                       25, 40, 48))
  expect_equal(head(detroit_parsed_sps$setup$end),   c(8, 16, 24,
                                                       39, 47, 55))
  expect_equal(tail(detroit_parsed_sps$setup$begin), c(4849, 4857, 4865,
                                                       4873, 4881, 4889))
  expect_equal(tail(detroit_parsed_sps$setup$end),   c(4856, 4864, 4872,
                                                       4880, 4888, 4896))


  expect_equal(head(worry_parsed_sps$setup$begin), c(1, 5, 7,
                                                     8, 9, 10))
  expect_equal(head(worry_parsed_sps$setup$end),   c(4, 6, 7,
                                                     8, 9, 10))
  expect_equal(tail(worry_parsed_sps$setup$begin), c(676, 677, 678,
                                                     679, 694, 709))
  expect_equal(tail(worry_parsed_sps$setup$end),   c(676, 677, 678,
                                                     693, 708, 723))


  expect_equal(head(cps_2004_parsed_sps$setup$begin), c(1, 16, 20,
                                                        22, 25, 27))
  expect_equal(head(cps_2004_parsed_sps$setup$end),   c(15, 19, 21,
                                                        24, 26, 28))
  expect_equal(tail(cps_2004_parsed_sps$setup$begin), c(590, 592, 594,
                                                        596, 598, 599))
  expect_equal(tail(cps_2004_parsed_sps$setup$end),   c(591, 593, 595,
                                                        597, 598, 608))


  expect_equal(head(step_in_parsed_sps$setup$begin), c(1, 5, 7,
                                                       18, 31, 35))
  expect_equal(head(step_in_parsed_sps$setup$end),   c(4, 6, 17,
                                                       30, 34, 35))
  expect_equal(tail(step_in_parsed_sps$setup$begin), c(7, 18, 31,
                                                       35, 36, 37))
  expect_equal(tail(step_in_parsed_sps$setup$end),   c(17, 30, 34,
                                                       35, 36, 39))

  expect_equal(head(cps_1973_parsed_sps$setup$begin), c(1, 2, 11,
                                                        12, 13, 14))
  expect_equal(head(cps_1973_parsed_sps$setup$end),   c(1, 10, 11,
                                                        12, 13, 14))
  expect_equal(tail(cps_1973_parsed_sps$setup$begin), c(554, 561, 568,
                                                        575, 579, 580))
  expect_equal(tail(cps_1973_parsed_sps$setup$end),   c(560, 567, 574,
                                                        578, 579, 582))

  expect_equal(head(census_police_parsed_sps$setup$begin), c(1, 9, 13,
                                                             21, 29, 30))
  expect_equal(head(census_police_parsed_sps$setup$end),   c(8, 12, 20,
                                                             28, 29, 31))
  expect_equal(tail(census_police_parsed_sps$setup$begin), c(619, 645, 647,
                                                             669, 689, 714))
  expect_equal(tail(census_police_parsed_sps$setup$end),   c(644, 646, 668,
                                                             688, 713, 721))


  expect_equal(ad_health_parsed_sps$setup$begin,
               c(1, 9, 12,
                 27, 42))

  expect_equal(sac_parsed_sps$setup$begin[1:20],
               c(1, 3, 6, 10, 16, 17, 18, 19, 20, 21, 22,
                 23, 24, 25, 27, 29, 31, 32, 33, 34))
  expect_equal(sac_parsed_sps$setup$begin[178:197],
               c(219, 220, 222, 223, 224, 226, 227,
                 229, 230, 232, 233, 234, 236, 237,
                 239, 240, 242, 243, 244, 246))
  expect_equal(sex_offender_parsed_sps$setup$begin,
               c(1, 4, 6, 13, 27, 29, 30, 31, 32, 33,
                 34, 35, 36, 38, 40, 42, 43, 44, 45,
                 46, 47, 48, 50, 52, 54, 56, 58, 60,
                 62, 64, 66, 68, 70, 71))
  expect_equal(ucr1960_parsed_sps$setup$begin[1:20],
               c(1, 2, 4, 11, 13, 14, 18, 23, 24, 31,
                 38, 42, 44, 45, 52, 55, 58, 63, 66, 69))
  expect_equal(ucr1960_parsed_sps$setup$begin[1429:1448],
               c(1936, 1937, 1938, 1939, 1940,
                 1941, 1942, 1943, 1944,  1945, 1946,
                 1947, 1948, 1949, 1950, 1951,
                 1952, 1953, 1954, 1955))
  expect_equal(weimar_parsed_sps$setup$begin,
               c(1, 3, 5, 6, 23, 30, 37, 44, 51, 58, 65, 72,
                 79, 86, 93, 100, 107, 114, 121, 128, 135,
                 142, 149))
  expect_equal(acs_parsed_sps$setup$begin,
               c(1, 3, 4, 8, 18, 19))
  expect_equal(nibrs_parsed_sps$setup$begin,
               c(1, 3, 5, 14, 26, 34, 42, 72, 74, 76, 77, 78,
                 79, 80, 89, 93, 97, 98, 106, 133))
  expect_equal(parole_parsed_sps$setup$begin[1:20],
               c(1, 3, 5, 11, 17, 23, 29, 35, 41, 47,
                 53, 59, 65, 71, 77, 83, 89, 95, 101,
                 107))
  expect_equal(parole_parsed_sps$setup$begin[40:59],
               c(222, 228, 230, 231, 237, 239, 240,
                 246, 248, 250, 252, 254, 256, 262,
                 268, 274, 280, 286, 292, 298))
  expect_equal(ca_vital_parsed_sps$setup$begin,
               c(1, 3, 7, 12, 14, 16, 17, 18,  19, 21, 23, 25,
                 27, 29, 30, 34, 36, 38, 40, 42, 44, 45, 46, 48, 49, 50,
                 52, 53, 54, 56, 57, 58, 60, 62, 64, 65,
                 67, 71, 74, 76, 81, 83, 87, 91, 102, 104,
                 115, 126, 137, 148, 159, 160, 171, 182,
                 184, 185, 187, 188, 189))

  expect_equal(crosswalk_parsed_sps$setup$begin,
               c(1, 2, 4, 12, 60, 61, 62, 64, 67, 98, 101,
                 103, 112, 142, 172, 202, 232, 237, 239,
                 248, 257, 259,
                 323, 331, 333, 336, 342, 346, 391))
  expect_equal(ucr1985_parsed_sps$setup$begin[1:20],
               c(1, 5, 6, 8, 13, 15, 22, 23, 25, 26,
                 28, 33, 35, 36, 44, 50, 54, 56, 57,
                 65))
  expect_equal(ucr1985_parsed_sps$setup$begin[1439:1458],
               c(5324, 5325, 5326, 5327, 5328,
                 5329, 5330, 5331, 5332, 5335,
                 5338, 5341, 5344, 5347, 5350,
                 5353, 5356, 5359, 5362, 5365))

  expect_equal(ucr1986_parsed_sps$setup$begin[1:20],
               c(1, 5, 6, 8, 13, 15, 22, 23,
                 25, 26, 28, 33, 35, 36, 44,
                 50, 54, 56, 57, 65))
  expect_equal(ucr1986_parsed_sps$setup$begin[1439:1458],
               c(5207, 5208, 5209, 5210,
                 5211, 5212, 5213, 5214,
                 5215, 5218, 5222, 5225,
                 5228, 5231, 5234, 5237,
                 5240, 5243, 5246, 5249))
  expect_equal(ucr2000_parsed_sps$setup$begin[1:20],
               c(1, 2, 4, 11, 13, 14, 18, 23, 24,
                 31, 39, 43, 45, 46, 53, 56, 59,
                 64, 67, 70))
  expect_equal(ucr2000_parsed_sps$setup$begin[1429:1448],
               c(3710, 3712, 3716, 3718,
                 3720, 3722, 3724, 3728,
                 3731, 3734, 3736, 3738,
                 3742, 3745, 3748, 3750,
                 3752, 3756, 3757, 3758))

  expect_equal(head(ncvs_parsed_sps$setup$begin), c(1, 7, 10,
                                                    12, 15, 19))
  expect_equal(tail(ncvs_parsed_sps$setup$begin), c(713, 717, 719,
                                                    727, 729, 731))


  expect_equal(head(jail_1987_parsed_sps$setup$begin), c(1, 5, 6,
                                                         7, 10, 13))
  expect_equal(tail(jail_1987_parsed_sps$setup$begin), c(633, 634, 636,
                                                         638, 640, 642))


  expect_equal(head(jail_2010_parsed_sps$setup$begin), c(1, 22, 31,
                                                         33, 78, 123))
  expect_equal(tail(jail_2010_parsed_sps$setup$begin), c(1125, 1127, 1133,
                                                         1135, 1141, 1143))

  expect_equal(corrections_parsed_sps$setup$begin, c(1, 2, 6,
                                                     8, 9, 10,
                                                     11,15, 19,
                                                     23, 27, 28,
                                                     30, 31))

  expect_equal(sadc_parsed_sps$setup$begin[1:10], c(1, 6, 56,
                                                    106, 114, 122,
                                                    125, 135, 143,
                                                    151))
  expect_equal(tail(sadc_parsed_sps$setup$begin), c(843, 846, 849,
                                                    852, 855, 858))



  expect_equal(head(crosswalk2012_parsed_sps$setup$begin),
               c(1, 3, 6,
                 11, 13, 16))
  expect_equal(tail(crosswalk2012_parsed_sps$setup$begin),
               c(1350, 1351, 1352,
                 1353, 1354, 1355))


  expect_equal(head(dutch_election_parsed_sps$setup$begin),
               c(1, 5, 9,
                 11, 14, 16))
  expect_equal(tail(dutch_election_parsed_sps$setup$begin),
               c(1250, 1251, 1252,
                 1254, 1255, 1256))



  expect_equal(head(well_being_parsed_sps$setup$begin),
               c(1, 2, 7,
                 9, 10, 13))
  expect_equal(tail(well_being_parsed_sps$setup$begin),
               c(405, 406, 407,
                 408, 409, 418))






  expect_equal(head(health_nutrition_parsed_sps$setup$begin),
               c(1, 6, 9,
                 12, 15, 18))
  expect_equal(tail(health_nutrition_parsed_sps$setup$begin),
               c(118, 121, 124,
                 138, 152, 155))


  expect_equal(head(india_human_parsed_sps$setup$begin),
               c(1, 2, 4,
                 6, 8, 11))
  expect_equal(tail(india_human_parsed_sps$setup$begin),
               c(1022, 1023, 1025,
                 1027, 1028, 1029))


  expect_equal(head(escolar_parsed_sps$setup$begin),
               c(0, 8, 13,
                 25, 75, 77))
  expect_equal(tail(escolar_parsed_sps$setup$begin),
               c(8359, 8365, 8371,
                 8377, 8383, 8389))
  expect_equal(head(escolar_parsed_sps$setup$end),
               c(7, 12, 24,
                 74, 76, 126))
  expect_equal(tail(escolar_parsed_sps$setup$end),
               c(8364, 8370, 8376,
                 8382, 8388, 8394))




  expect_equal(head(india_human_parsed_sps$setup$end),
               c(1, 3, 5,
                 7, 10, 11))
  expect_equal(tail(india_human_parsed_sps$setup$end),
               c(1022, 1024, 1026,
                 1027, 1028, 1030))


  expect_equal(ad_health_parsed_sps$setup$end,
               c(8, 11, 26,
                 41, 56))


  expect_equal(head(health_nutrition_parsed_sps$setup$end),
               c(5, 8, 11,
                 14, 17, 20))
  expect_equal(tail(health_nutrition_parsed_sps$setup$end),
               c(120, 123, 137,
                 151, 154, 157))

  expect_equal(head(well_being_parsed_sps$setup$end),
               c(1, 6, 8,
                 9, 12, 13))
  expect_equal(tail(well_being_parsed_sps$setup$end),
               c(405, 406, 407,
                 408, 417, 419))

  expect_equal(weimar_parsed_sps$setup$end,
               c(2, 4, 5, 22, 29, 36, 43, 50, 57, 64, 71, 78,
                 85, 92, 99, 106, 113, 120, 127, 134, 141, 148,
                 155))
  expect_equal(acs_parsed_sps$setup$end,
               c(2, 3, 7, 17, 18, 21))
  expect_equal(nibrs_parsed_sps$setup$end,
               c(2, 4, 13, 25, 33, 41, 71, 73, 75, 76, 77, 78,
                 79, 88, 92, 96, 97, 105, 132, 135))
  expect_equal(parole_parsed_sps$setup$end[1:20],
               c(2, 4, 10, 16, 22, 28, 34, 40, 46, 52,
                 58, 64, 70, 76, 82, 88, 94, 100, 106,
                 112))
  expect_equal(parole_parsed_sps$setup$end[40:59],
               c(227, 229, 230, 236, 238, 239, 245,
                 247, 249, 251, 253, 255, 261, 267,
                 273, 279, 285, 291, 297, 301))
  expect_equal(ca_vital_parsed_sps$setup$end,
               c(2, 6, 11, 13, 15, 16, 17, 18, 20, 22, 24,
                 26, 28, 29, 33, 35, 37, 39, 41, 43, 44, 45,
                 47, 48, 49, 51, 52, 53, 55, 56, 57, 59, 61,
                 63, 64, 66, 70, 73, 75, 80, 82, 86, 90,
                 101, 103, 114, 125, 136, 147, 158, 159,
                 170, 181, 183, 184, 186, 187, 188, 189))

  expect_equal(sac_parsed_sps$setup$end[1:20],
               c(2, 5, 9, 15, 16, 17, 18, 19, 20, 21, 22,
                 23, 24, 26, 28, 30, 31, 32, 33, 34))
  expect_equal(sac_parsed_sps$setup$end[178:197],
               c(219, 221, 222, 223, 225, 226, 228, 229,
                 231, 232, 233, 235, 236, 238, 239, 241,
                 242, 243, 245, 246))
  expect_equal(sex_offender_parsed_sps$setup$end,
               c(3, 5, 12, 26, 28, 29, 30, 31, 32, 33,
                 34, 35, 37, 39, 41, 42, 43, 44, 45, 46,
                 47, 49, 51, 53, 55, 57, 59, 61, 63, 65,
                 67, 69, 70, 71))

  expect_equal(crosswalk_parsed_sps$setup$end,
               c(1, 3, 11, 59, 60, 61, 63, 66, 97, 100, 102,
                 111, 141, 171, 201, 231, 236, 238, 247, 256,
                 258, 322, 330, 332, 335, 341, 345, 390,
                 393))
  expect_equal(ucr1985_parsed_sps$setup$end[1:20],
               c(4, 5, 7, 12, 14, 21, 22, 24, 25, 27,
                 32, 34, 35, 43, 49, 53, 55, 56, 64, 67))
  expect_equal(ucr1985_parsed_sps$setup$end[1439:1458],
               c(5324, 5325, 5326, 5327, 5328,
                 5329, 5330, 5331, 5334, 5337,
                 5340, 5343, 5346, 5349, 5352,
                 5355, 5358, 5361, 5364, 5367))
  expect_equal(ucr1960_parsed_sps$setup$end[1:20],
               c(1, 3, 10, 12, 13, 17, 22, 23, 30, 37,
                 41, 43, 44, 51, 54, 57, 62, 65, 68, 72))
  expect_equal(ucr1960_parsed_sps$setup$end[1429:1448],
               c(1936, 1937, 1938, 1939, 1940,
                 1941, 1942, 1943, 1944,  1945, 1946,
                 1947, 1948, 1949, 1950, 1951,
                 1952, 1953, 1954, 1955))



  expect_equal(ucr1986_parsed_sps$setup$end[1:20],
               c(4, 5, 7, 12, 14, 21, 22, 24,
                 25, 27, 32, 34, 35, 43, 49,
                 53, 55, 56, 64, 67))
  expect_equal(ucr1986_parsed_sps$setup$end[1439:1458],
               c(5207, 5208, 5209, 5210,
                 5211, 5212, 5213, 5214,
                 5217, 5221, 5224, 5227,
                 5230, 5233, 5236, 5239,
                 5242, 5245, 5248, 5251))
  expect_equal(ucr2000_parsed_sps$setup$end[1:20],
               c(1, 3, 10, 12, 13, 17, 22, 23,
                 30, 38, 42, 44, 45, 52, 55,
                 58, 63, 66, 69, 74))
  expect_equal(ucr2000_parsed_sps$setup$end[1429:1448],
               c(3711, 3715, 3717, 3719,
                 3721, 3723, 3727, 3730,
                 3733, 3735, 3737, 3741,
                 3744, 3747, 3749, 3751,
                 3755, 3756, 3757, 3760))

  expect_equal(head(ncvs_parsed_sps$setup$end),
               c(6, 9, 11, 14, 18, 19))
  expect_equal(tail(ncvs_parsed_sps$setup$end),
               c(716, 718, 726, 728, 730, 731))

  expect_equal(head(jail_1987_parsed_sps$setup$end),
               c(4, 5, 6, 9, 12, 14))
  expect_equal(tail(jail_1987_parsed_sps$setup$end),
               c(633, 635, 637, 639, 641, 642))


  expect_equal(head(jail_2010_parsed_sps$setup$end),
               c(21, 30, 32, 77, 122, 154))
  expect_equal(tail(jail_2010_parsed_sps$setup$end),
               c(1126, 1132, 1134, 1140, 1142, 1150))

  expect_equal(corrections_parsed_sps$setup$end,
               c(1, 5, 7, 8, 9, 10, 14, 18, 22, 26, 27, 29, 30, 31))

  expect_equal(sadc_parsed_sps$setup$end[1:10], c(5, 55, 105,
                                                  113, 121, 124,
                                                  134, 142, 150,
                                                  158))
  expect_equal(tail(sadc_parsed_sps$setup$end), c(845, 848, 851,
                                                  854, 857, 860))


  expect_equal(head(crosswalk2012_parsed_sps$setup$end),
               c(2, 5, 10,
                 12, 15, 20))
  expect_equal(tail(crosswalk2012_parsed_sps$setup$end),
               c(1350, 1351, 1352,
                 1353, 1354, 1355))


  expect_equal(head(dutch_election_parsed_sps$setup$end),
               c(4, 8, 10,
                 13, 15, 16))
  expect_equal(tail(dutch_election_parsed_sps$setup$end),
               c(1250, 1251, 1253,
                 1254, 1255, 1256))


  expect_equal(head(cambridge_parsed_sps$setup$begin),
               c(1, 5, 6,
                 7, 10, 11))
  expect_equal(head(cambridge_parsed_sps$setup$end),
               c(4, 5, 6,
                 9, 10, 11))
  expect_equal(tail(cambridge_parsed_sps$setup$begin),
               c(1009, 1011, 1013,
                 1015, 1016, 1017))
  expect_equal(tail(cambridge_parsed_sps$setup$end),
               c(1010, 1012, 1014,
                 1015, 1016, 1017))


  expect_equal(head(guam_parsed_sps$setup$begin),
               c(1, 4, 10,
                 12, 19, 20))
  expect_equal(head(guam_parsed_sps$setup$end),
               c(3, 9, 11,
                 18, 19, 20))
  expect_equal(tail(guam_parsed_sps$setup$begin),
               c(393, 398, 403,
                 408, 413, 418))
  expect_equal(tail(guam_parsed_sps$setup$end),
               c(397, 402, 407,
                 412, 417, 422))


  expect_equal(head(china_2002_parsed_sps$setup$begin),
               c(1, 4, 6,
                 12, 14, 15))
  expect_equal(head(china_2002_parsed_sps$setup$end),
               c(3, 5, 11,
                 13, 14, 15))
  expect_equal(tail(china_2002_parsed_sps$setup$begin),
               c(1215, 1218, 1224,
                 1228, 1234, 1242))
  expect_equal(tail(china_2002_parsed_sps$setup$end),
               c(1217, 1223, 1227,
                 1233, 1241, 1249))


  expect_equal(head(china_1995_parsed_sps$setup$begin),
               c(1, 13, 25,
                 37, 49, 61))
  expect_equal(head(china_1995_parsed_sps$setup$end),
               c(12, 24, 36,
                 48, 60, 72))
  expect_equal(tail(china_1995_parsed_sps$setup$begin),
               c(1153, 1165, 1177,
                 1189, 1201, 1213))
  expect_equal(tail(china_1995_parsed_sps$setup$end),
               c(1164, 1176, 1188,
                 1200, 1212, 1224))


  expect_equal(head(china_1998_parsed_sps$setup$begin),
               c(1, 10, 11,
                 12, 15, 16))
  expect_equal(head(china_1998_parsed_sps$setup$end),
               c(9, 10, 11,
                 14, 15, 16))
  expect_equal(tail(china_1998_parsed_sps$setup$begin),
               c(143, 148, 153,
                 154, 159, 164))
  expect_equal(tail(china_1998_parsed_sps$setup$end),
               c(147, 152, 153,
                 158, 163, 165))


  expect_equal(head(indonesia_parsed_sps$setup$begin),
               c(1, 9, 17,
                 19, 21, 29))
  expect_equal(head(indonesia_parsed_sps$setup$end),
               c(8, 16, 18,
                 20, 28, 36))
  expect_equal(tail(indonesia_parsed_sps$setup$begin),
               c(21, 29, 37,
                 45, 52, 61))
  expect_equal(tail(indonesia_parsed_sps$setup$end),
               c(28, 36, 44,
                 51, 60, 64))


  expect_equal(head(UN_crime_parsed_sps$setup$begin),
               c(1, 4, 18,
                 23, 28, 33))
  expect_equal(head(UN_crime_parsed_sps$setup$end),
               c(3, 17, 22,
                 27, 32, 37))
  expect_equal(tail(UN_crime_parsed_sps$setup$begin),
               c(600, 606, 611,
                 616, 621, 626))
  expect_equal(tail(UN_crime_parsed_sps$setup$end),
               c(605, 610, 615,
                 620, 625, 630))


  expect_equal(head(county_arrest_parsed_sps$setup$begin),
               c(1, 5, 6,
                 8, 12, 14))
  expect_equal(head(county_arrest_parsed_sps$setup$end),
               c(4, 5, 7,
                 11, 13, 16))
  expect_equal(tail(county_arrest_parsed_sps$setup$begin),
               c(55, 60, 65,
                 70, 75, 80))
  expect_equal(tail(county_arrest_parsed_sps$setup$end),
               c(59, 64, 69,
                 74, 79, 83))



})


test_that("Column names are correct", {
  skip_on_cran()


  expect_equal(mtf_2019_parsed_sps$setup$column_name[12:15],
               c("X89977_MID_0_END_1",
                 "X00760_A01a_EVR_SMK_CIG_REGL_F1234",
                 "X00790_A01a_EVER_DRINK_F1234",
                 "X00810_A01a_X_DRNK_LIFETIME_F1234"))

  expect_equal(mtf_2019_parsed_sps$setup$column_name[595:600],
               c("X20770_T02_OFTN_EXERCISE_F2",
                 "X20780_T02_OFTN_7HRS_SLEEP_F2",
                 "X20790_T02_OFTN_SLEEP_under_SHLD_F2",
                 "X32520_T02_DA_WK_ACTV_60_MIN_F1",
                 "X34030_T05_CONCUSSION_EVER_F1",
                 "X00760_A01a_EVR_SMK_CIG_REGL_F1234_dichotomous_recode"))


  expect_equal(ca_sedd_2005_ahal_parsed_sps$setup$column_number,
               c("AHAID",
                 "DSHOSPID",
                 "HOSPID",
                 "HOSPST",
                 "HOSPSTCO",
                 "YEAR"))
  expect_equal(ca_sedd_2005_ahal_parsed_sps$setup$column_name,
               c("AHA_hospital_identifier_with_the_leading_6",
                 "Data_source_hospital_identifier",
                 "HCUP_hospital_identification_number",
                 "Hospital_state_postal_code",
                 "Hospital_modified_FIPS_state_county_code",
                 "Calendar_year"))


  expect_equal(head(missing_value_no_s_parsed_sps$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(missing_value_no_s_parsed_sps$setup$column_name),
               c("ICPSR_STUDY_NUMBER_7779",
                 "ICPSR_EDITION_NUMBER_1",
                 "ICPSR_PART_NUMBER_001",
                 "S_DATA_SOURCE",
                 "S_INTERVIEW_NUMBER",
                 "S_FILE_NUMBER"))
  expect_equal(tail(missing_value_no_s_parsed_sps$setup$column_number),
               c("V4018", "V4019", "V4020",
                 "V4021", "V4022", "V4023"))
  expect_equal(tail(missing_value_no_s_parsed_sps$setup$column_name),
               c("S_F_T_WHITES_REC_82",
                 "S_F_T_NEGROES_REC_82",
                 "S_OPINION_STRENGTH_0MD",
                 "S_SELF_CONFIDENCE_0MD_8",
                 "S_PERSONAL_TRUST_0MD_82",
                 "S_POLITICAL_TRUST_0MD_8"))




  expect_equal(head(cambridge_parsed_sps$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(cambridge_parsed_sps$setup$column_name),
               c("ICPSR_STUDY_NUMBER_8488",
                 "ICPSR_EDITION_NUMBER_2",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_SEQ_ID_NUMBER",
                 "CONVICTED_10_13",
                 "CONVICTED_14_16"))
  expect_equal(tail(cambridge_parsed_sps$setup$column_number),
               c("V875", "V876", "V877",
                 "V878", "V879", "V880"))
  expect_equal(tail(cambridge_parsed_sps$setup$column_name),
               c("DEL_DAMAGE_PROP_W_O_STL",
                 "STEAL_FRM_SLOT_MACHINES",
                 "SHOPLIFT_FROM_SHOPS",
                 "READING_ABILITY",
                 "TAX_EVASION",
                 "POOR_LIVING_CONDITIONS"))


  expect_equal(head(guam_parsed_sps$setup$column_number),
               c("RESVD1", "CERTNO", "RESVD2",
                 "SEQNUM", "RECTYPE", "RESISTAT"))
  expect_equal(head(guam_parsed_sps$setup$column_name),
               c("RESERVED_POSITIONS",
                 "CERTIFICATE_NUMBER",
                 "RESERVED_POSITIONS",
                 "SEQUENCE_NUMBER",
                 "RECORD_TYPE",
                 "RESIDENT_STATUS"))
  expect_equal(tail(guam_parsed_sps$setup$column_number),
               c("RCOND15", "RCOND16", "RCOND17",
                 "RCOND18", "RCOND19", "RCOND20"))
  expect_equal(tail(guam_parsed_sps$setup$column_name),
               c("RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION"))


  expect_equal(head(china_2002_parsed_sps$setup$column_number),
               c("ORDER", "SM", "COUN",
                 "VILL", "V3_1", "V3_2"))
  expect_equal(head(china_2002_parsed_sps$setup$column_name),
               c("ORDER",
                 "SM",
                 "County_Number",
                 "Village_Number",
                 "Geographical_condition",
                 "Suburb_of_large_middle_city_jiaoqu"))
  expect_equal(tail(china_2002_parsed_sps$setup$column_number),
               c("V3_709A", "V3_709B", "V3_710A",
                 "V3_710B", "V3_8OLD", "V3_8NEW"))
  expect_equal(tail(china_2002_parsed_sps$setup$column_name),
               c("The_amount_loan_for_poverty_relief_in_1998",
                 "The_amount_loan_for_poverty_relief_in_1998",
                 "The_amount_loan_for_poverty_relief_in_1997",
                 "The_amount_loan_for_poverty_relief_in_1997",
                 "V3_8OLD",
                 "V3_8NEW"))


  expect_equal(head(china_1995_parsed_sps$setup$column_number),
               c("N1", "A1", "A2",
                 "A3", "A4", "A5"))
  expect_equal(head(china_1995_parsed_sps$setup$column_name),
               c("N1",
                 "A1",
                 "A2",
                 "A3",
                 "A4",
                 "A5"))
  expect_equal(tail(china_1995_parsed_sps$setup$column_number),
               c("A96", "A97", "A98",
                 "A99", "PROVINCE", "COUNTY"))
  expect_equal(tail(china_1995_parsed_sps$setup$column_name),
               c("A96",
                 "A97",
                 "A98",
                 "A99",
                 "PROVINCE",
                 "COUNTY"))


  expect_equal(head(china_1998_parsed_sps$setup$column_number),
               c("UCODE", "RELATION", "GENDER",
                 "AGE", "STUDENT", "INCOME88"))
  expect_equal(head(china_1998_parsed_sps$setup$column_name),
               c("HOUSEHOLD_CODE",
                 "RELATIONSHIP_TO_HEAD_OF_HOUSEHOLD",
                 "SEX_OF_HOUSEHOLD_MEMBER",
                 "AGE_OF_HOUSEHOLD_MEMBER",
                 "STUDENT_STATUS_OF_HOUSEHOLD_MEMBER",
                 "INCOME_RECIPIENT_IN_1988"))
  expect_equal(tail(china_1998_parsed_sps$setup$column_number),
               c("IT07M", "IT07E", "IT08T",
                 "IT08M", "IT08E", "NHHMEM"))
  expect_equal(tail(china_1998_parsed_sps$setup$column_name),
               c("ESTIMATED_MARKET_PRICE_YUAN",
                 "AMOUNT_PAID_BY_MEMBER_YUAN",
                 "ITEM_TYPE",
                 "ESTIMATED_MARKET_PRICE_YUAN",
                 "AMOUNT_PAID_BY_MEMBER_YUAN",
                 "OF_MEMBERS_IN_HOUSEHOLD"))


  expect_equal(head(indonesia_parsed_sps$setup$column_number),
               c("CASE", "NCOMB", "ITEM",
                 "KS01", "KS02RP", "NCOMB1A"))
  expect_equal(head(indonesia_parsed_sps$setup$column_name),
               c("IFLS_HHLD_NUMBER",
                 "TOTAL_OF_ITEMS_CONSUMED",
                 "TYPES_OF_STAPLE_FOODS_LISTED",
                 "COMBINATION_CODE",
                 "NUMERIC_VALUE_TOTAL_EXPENSE_IN_PAST_WEE",
                 "TOTAL_ITEMS_SELF_PRODUCED"))
  expect_equal(tail(indonesia_parsed_sps$setup$column_number),
               c("KS02RP", "NCOMB1A", "KS03RP",
                 "HHID93", "HHID", "COMMID93"))
  expect_equal(tail(indonesia_parsed_sps$setup$column_name),
               c("NUMERIC_VALUE_TOTAL_EXPENSE_IN_PAST_WEE",
                 "TOTAL_ITEMS_SELF_PRODUCED",
                 "NUMERIC_VALUE_TOTAL_SELF_PRODUCED_CONSU",
                 "HHID_93_EA_plus_HHNUM_plus_00",
                 "HHID_case",
                 "COMMUNITY_ID_TO_MATCH_IFLS2_COMMID93"))


  expect_equal(head(UN_crime_parsed_sps$setup$column_number),
               c("ID", "COUNTRY", "NNHOM70N",
                 "NNHOM71N", "NNHOM72N", "NNHOM73N"))
  expect_equal(head(UN_crime_parsed_sps$setup$column_name),
               c("ID",
                 "COUNTRY",
                 "MURDER_CONVICTIONS_1970",
                 "MURDER_CONVICTIONS_1971",
                 "MURDER_CONVICTIONS_1972",
                 "MURDER_CONVICTIONS_1973"))
  expect_equal(tail(UN_crime_parsed_sps$setup$column_number),
               c("PSTF745", "X2", "X3",
                 "X4", "X5", "X6"))
  expect_equal(tail(UN_crime_parsed_sps$setup$column_name),
               c("PRISON_STAFF_1974_1975",
                 "X2",
                 "X3",
                 "X4",
                 "X5",
                 "X6"))


  expect_equal(head(county_arrest_parsed_sps$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(county_arrest_parsed_sps$setup$column_name),
               c("ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_SEQUENCE_NUMber",
                 "STATE_CODE",
                 "COUNTY_CODE"))
  expect_equal(tail(county_arrest_parsed_sps$setup$column_number),
               c("V14", "V15", "V16",
                 "V17", "V18", "V19"))
  expect_equal(tail(county_arrest_parsed_sps$setup$column_name),
               c("ROBBERY",
                 "ASSAULT",
                 "BURGLARY",
                 "LARCENY",
                 "VEHICLE_THEFT",
                 "ARSON"))


  expect_equal(head(well_being_parsed_sps$setup$column_number),
               c("WB16REL", "WB16YRID", "WB16SN",
                 "WB16SEX", "WB16AGE", "WB16IWMODE"))
  expect_equal(head(well_being_parsed_sps$setup$column_name),
               c("RELEASE_NUMBER",
                 "X2015_FAMILY_INTERVIEW_ID_NUMBER",
                 "SEQUENCE_NUMBER_15",
                 "SEX_OF_R",
                 "AGE_OF_R_ON_DEC_31_2015",
                 "MODE_OF_INTERVIEW"))
  expect_equal(tail(well_being_parsed_sps$setup$column_number),
               c("WB16BKSECH", "WB16BKSECI", "WB16BKSECJ",
                 "WB16BKSECK", "WB16WT", "WB16DEV"))
  expect_equal(tail(well_being_parsed_sps$setup$column_name),
               c("WTR_BACKED_UP_SECTION_H",
                 "WTR_BACKED_UP_SECTION_I",
                 "WTR_BACKED_UP_SECTION_J",
                 "WTR_BACKED_UP_SECTION_K",
                 "WELLBEING_CROSS_SECTIONAL_WEIGHT",
                 "DEVICE_TYPE_FOR_WEB_LOGIN"))





  expect_equal(head(crosswalk2012_parsed_sps$setup$column_number),
               c("FSTATE", "FCOUNTY", "FPLACE",
                 "FIPS_ST", "FIPS_COUNTY", "FIPS"))
  expect_equal(tail(crosswalk2012_parsed_sps$setup$column_number),
               c("SOURCE_CSLLEA2008", "SOURCE_UCR2010", "SOURCE_UCR2011",
                 "SOURCE_UCR2012", "SOURCE_NCIC2012", "SOURCE_VENDOR"))

  expect_equal(head(crosswalk2012_parsed_sps$setup$column_name),
               c("FIPS_STATE_CODE",
                 "FIPS_COUNTY_CODE",
                 "FIPS_PLACE_CODE",
                 "FIPS_STATE_CODE_ALPHANUMERIC",
                 "FIPS_COUNTY_CODE_ALPHANUMERIC",
                 "FIPS_STATE_COUNTY_CODE_ALPHANUMERIC"))
  expect_equal(tail(crosswalk2012_parsed_sps$setup$column_name),
               c("SOURCE_FILE_FLAG_CSLLEA_2008",
                 "SOURCE_FILE_FLAG_UCR_2010",
                 "SOURCE_FILE_FLAG_UCR_2011",
                 "SOURCE_FILE_FLAG_UCR_2012",
                 "SOURCE_FILE_FLAG_NCIC_2012",
                 "SOURCE_FILE_FLAG_VENDOR_FILE_2012"))



  expect_equal(head(dutch_election_parsed_sps$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(tail(dutch_election_parsed_sps$setup$column_number),
               c("V761", "V762", "V763",
                 "V764", "V765", "V766"))

  expect_equal(head(dutch_election_parsed_sps$setup$column_name),
               c("ICPSR_STUDY_NUMBER_7261",
                 "INTERVIEW_NUMBER",
                 "PROVINCE_OF_INTERVIEW",
                 "MUNICIPALITY_OF_INT",
                 "DGRE_OF_URBNZATN_MNCPLTY",
                 "X1ST_VISIT_CS_OF_NNINT"))
  expect_equal(tail(dutch_election_parsed_sps$setup$column_name),
               c("X3_COOPERATION_OF_R",
                 "X3_GNL_RLBLTY_R_S_ANSR",
                 "X3_UNRELIABLE_RESPONSES",
                 "X3_R_S_GNL_INTRST_N_POLT",
                 "X3_R_S_LVL_F_INF_ABT_PLT",
                 "RESPONSE_BY_WAVE"))


  expect_equal(sac_parsed_sps$setup$column_number[1:20],
               c("TRINUM", "SUBNO", "TODDATYR",
                 "DATSTAR", "CONSTATE", "Q1JSEX",
                 "Q2JAGE", "Q3JETH", "Q4JEDUC",
                 "Q5JSUPDP", "Q6JVIC", "Q7JKIDCT",
                 "Q8HOWMK", "Q9KNAM", "Q10KAGET",
                 "Q11KAGEA", "Q12KSEX", "Q13KVID",
                 "Q14INTK", "Q15IMPVK"))
  expect_equal(sac_parsed_sps$setup$column_number[178:197],
               c("Q123PN3", "Q123BIM3",
                 "Q124BGEN", "Q124PN1",
                 "Q124BIM1", "Q124PN2",
                 "Q124BIM2", "Q124PN3",
                 "Q124BIM3", "Q125BEF",
                 "Q126PN1", "Q126OTH1",
                 "Q126PN2", "Q126OTH2",
                 "Q126PN3", "Q126OTH3",
                 "KAGE", "VERDICT",
                 "DURAT", "DURAT2"))
  expect_equal(sex_offender_parsed_sps$setup$column_number,
               c("ID", "MEETING", "DATE",
                 "CITY", "Q1", "Q2A", "Q2B",
                 "Q2C", "Q2D", "Q2E", "Q2F",
                 "Q2G", "Q3", "Q4", "Q5",
                 "Q6A", "Q6B", "Q6C", "Q6D",
                 "Q6E", "Q6F", "Q7", "Q8A",
                 "Q8B", "Q9A", "Q9B", "Q9C",
                 "Q9D", "Q9E", "Q9F", "Q9G",
                 "Q10", "INDEX", "NEWQ9G"))
  expect_equal(ucr1960_parsed_sps$setup$column_number[1:20],
               c("V1", "V2", "V3", "V4", "V5", "V6",
                 "V7", "V8", "V9", "V10", "V11", "V12",
                 "V13", "V14", "V15", "V16", "V17",
                 "V18", "V19", "V20"))

  expect_equal(weimar_parsed_sps$setup$column_number,
               c("V1", "V2", "V3", "V4", "V5", "V6",
                 "V7", "V8", "V9", "V10", "V11", "V12",
                 "V13", "V14", "V15", "V16", "V17",
                 "V18", "V19", "V20", "V21", "V22",
                 "V23"))
  expect_equal(acs_parsed_sps$setup$column_number,
               c("STATEFIP", "GQ", "PERNUM",
                 "PERWT", "SEX", "AGE"))
  expect_equal(nibrs_parsed_sps$setup$column_number,
               c("B1001", "B1002", "B1003", "B1004",
                 "B1005", "B1006", "B1007", "B1008",
                 "B1009", "B1010", "B1011", "B1012",
                 "B1013", "B1014", "B1015", "B1016",
                 "B1017", "B1018", "B1019", "B1020"))
  expect_equal(parole_parsed_sps$setup$column_number[1:20],
               c("STATEID", "STATE", "TOTBEG",
                 "ENDISREL", "ENMANREL",
                 "ENREINST", "OTHEN", "TOTEN",
                 "EXCOM", "EXINCNEW", "EXINCREV",
                 "EXINCOTH", "EXTRANS", "EXDTH",
                 "EXOTH", "TOTEX", "TOTEND",
                 "MALE", "FEML", "TOTGEND"))
  expect_equal(parole_parsed_sps$setup$column_number[40:59],
               c("ISPNUM", "ISPIN", "EM",
                 "EMNUM", "EMIN", "BOOT",
                 "BOOTNUM", "BOOTIN",
                 "LOCJAIL", "LOCJAILIN",
                 "OTHPAR", "ENDOFYEAR",
                 "UNKEN", "UNKEX", "UNKGEND",
                 "UNKRACE2", "UNKHISP",
                 "UNKMAX", "UNKSTAT", "SUPVRATE"))

  expect_equal(ca_vital_parsed_sps$setup$column_number[1:20],
               c("CNTYJUR", "JURISDIC",
                 "BCSNUM", "TOTVICT",
                 "TOTOFFEN", "VICSEX",
                 "VICRACE", "CRIMEST",
                 "RELATN1", "RELATN2",
                 "RELATN3", "RELATN4",
                 "INCDTIME", "INCDDAY",
                 "DEATHYR", "WEAPON",
                 "LOCATION", "PRECIP1",
                 "PRECIP2", "PRECIP3"))
  expect_equal(ca_vital_parsed_sps$setup$column_number[40:59],
               c("ZIPCODE", "AGEYEARS",
                 "CENSUS", "ICD10",
                 "DOB",  "VICAGE",
                 "DOD", "ARRDATE1",
                 "ARRDATE2", "ARRDATE3",
                 "ARRDATE4",  "FLAG",
                 "INCDDATE", "INJDATE",
                 "RACE", "SEX",
                 "STATERES", "MARSTAT",
                 "HISPANIC", "MATCH"))

  expect_equal(crosswalk_parsed_sps$setup$column_number,
               c("SOURCE", "STATE", "UORI",
                 "UAGENCY", "UCORI", "UMULTICO",
                 "USTATENO", "UCOUNTY", "UCTYNAME",
                 "UMSA", "UPOPGRP", "UPOPCOV",
                 "UADD1", "UADD2", "UADD3",
                 "UADD4", "UADD5",
                 "CSTATENO", "CGOVIDNU",
                 "CGOVIDST", "CGOVTYPE", "CNAME",
                 "CPOP94", "FSTATE", "FCOUNTY",
                 "FPLACE", "FMSA", "FMSANAME",
                 "FCMSA"))
  expect_equal(ucr1985_parsed_sps$setup$column_number[1:20],
               c("V1", "V2", "V3", "V4", "V5", "V6",
                 "V7", "V8", "V9", "V10", "V11", "V12",
                 "V13", "V14", "V15", "V16", "V17",
                 "V18", "V19", "V20"))
  expect_equal(ucr1985_parsed_sps$setup$column_number[1439:1458],
               c("V1439", "V1440",
                 "V1441", "V1442",
                 "V1443", "V1444",
                 "V1445", "V1446",
                 "V1447", "V1448",
                 "V1449", "V1450",
                 "V1451", "V1452",
                 "V1453", "V1454",
                 "V1455", "V1456",
                 "V1457", "V1458"))
  expect_equal(ucr1960_parsed_sps$setup$column_number[1429:1448],
               c("V1429", "V1430",
                 "V1431", "V1432",
                 "V1433", "V1434",
                 "V1435", "V1436",
                 "V1437", "V1438",
                 "V1439", "V1440",
                 "V1441", "V1442",
                 "V1443", "V1444",
                 "V1445", "V1446",
                 "V1447", "V1448"))

  expect_equal(head(ncvs_parsed_sps$setup$column_number),
               c("V2001", "V2002", "V2003",
                 "V2004", "V2005", "V2006"))
  expect_equal(tail(ncvs_parsed_sps$setup$column_number),
               c("V4322", "V4323", "V4324",
                 "V4325", "V4326", "V4327"))

  expect_equal(head(ncvs_parsed_sps$setup$column_name),
               c("ICPSR_HOUSEHOLD_NUMBER",
                 "YEAR_AND_QUARTER",
                 "CENSUS_SAMPLE_NUMBER",
                 "PRIMARY_SAMPLING_UNIT",
                 "SEGMENT_NUMBER",
                 "CHECK_DIGIT"))
  expect_equal(tail(ncvs_parsed_sps$setup$column_name),
               c("SERIOUSNESS_SCORE",
                 "SERIOUSNESS_OLD_SCORE",
                 "INCIDENT_WEIGHT",
                 "CRIME_SEQUENCE_NO",
                 "RECODED_TYPE_OF_CRIME",
                 "RELATION_TO_VICTIM"))

  expect_equal(head(jail_1987_parsed_sps$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(tail(jail_1987_parsed_sps$setup$column_number),
               c("V171", "V172", "V173",
                 "V174", "V175", "V176"))

  expect_equal(head(jail_1987_parsed_sps$setup$column_name),
               c("ICPSR_STUDY_NUMBER_9074",
                 "ICPSR_EDITION_NUMBER_1",
                 "ICPSR_PART_NUMBER_1",
                 "ICPSR_SEQUENCE_NUMBER",
                 "FORM_NUMBER",
                 "STATE_CODE"))
  expect_equal(tail(jail_1987_parsed_sps$setup$column_name),
               c("COURT_ORDER_STAFF_PATTRN",
                 "COURT_ORDER_ED_TRAINING",
                 "COURT_ORDER_COUNSELLING",
                 "COURT_ORDER_FOOD_SERVICE",
                 "COURT_ORDER_OTHER",
                 "CENSUS_USE_BOX"))


  expect_equal(head(jail_2010_parsed_sps$setup$column_number),
               c("FACLID21", "JURDID", "STATE",
                 "COUNTY", "FACLNAME", "CITY"))
  expect_equal(tail(jail_2010_parsed_sps$setup$column_number),
               c("STOLENPROPF",
                 "ESCAPE",
                 "ESCAPEF",
                 "OTHERMAJVIO",
                 "OTHERMAJVIOF",
                 "NCONPOP2"))

  expect_equal(head(jail_2010_parsed_sps$setup$column_name),
               c("AGENCY_ID",
                 "JURISDICTION_ID",
                 "STATE",
                 "COUNTY_NAME",
                 "FACILITY_NAME",
                 "CITY"))
  expect_equal(tail(jail_2010_parsed_sps$setup$column_name),
               c("POSSESSION_OF_STOLEN_PROPERTY_FLAG",
                 "S4QIV_4_1F_ESCAPE_OR_ATTEMPTED_ESCAPE",
                 "ESCAPE_OR_ATTEMPTED_ESCAPE_FLAG",
                 "S4QIV_4_1G_ANY_OTHER_MAJOR_VIOLATION_INCLUDING_WORK_SLOWDOWNS_FOOD_STRIKES_SETTING_FIRE_RIOTING_ETC",
                 "ANY_OTHER_MAJOR_VIOLATION_INCLUDING_WORK_SLOWDOWNS_FOOD_STRIKES_SETTING_FIRE_RIOTING_ETC_FLAG",
                 "NONCONFINED_POPULATION_CALCULATED"))


  expect_equal(corrections_parsed_sps$setup$column_number,
               c("SEX",
                 "RPTYEAR",
                 "STATE",
                 "EDUCATION",
                 "ADMTYPE",
                 "OFFGENERAL",
                 "MAND_PRISREL_YEAR",
                 "PROJ_PRISREL_YEAR",
                 "PARELIG_YEAR",
                 "ADMITYR",
                 "SENTLGTH",
                 "OFFDETAIL",
                 "RACE",
                 "AGEADMIT"))
  expect_equal(corrections_parsed_sps$setup$column_name,
               c("SEX_OF_INMATE",
                 "YEAR_DATA_WERE_SUBMITTED_TO_NCRP",
                 "STATE_WITH_CUSTODY_OF_INMATE",
                 "HIGHEST_LEVEL_OF_EDUCATION_OF_INMATE",
                 "TYPE_OF_PRISON_ADMISSION",
                 "X5_LEVEL_CATEGORIZATION_OF_MOST_SERIOUS_SENTENCED_OFFENSE",
                 "YEAR_OF_MANDATORY_PRISON_RELEASE",
                 "YEAR_OF_PROJECTED_PRISON_RELEASE",
                 "YEAR_OF_PAROLE_ELIGIBILITY",
                 "YEAR_INMATE_WAS_ADMITTED_TO_PRISON",
                 "MAXIMUM_SENTENCE_LENGTH_FOR_INMATE",
                 "DETAILED_CATEGORIZATION_OF_MOST_SERIOUS_SENTENCED_OFFENSE",
                 "RACE_HISPANIC_ETHNICITY_OF_INMATE",
                 "AGE_AT_ADMISSION"))



  expect_equal(head(sadc_parsed_sps$setup$column_number),
               c("sitecode",
                 "sitename",
                 "sitetype",
                 "sitetypenum",
                 "year",
                 "survyear"))
  expect_equal(tail(sadc_parsed_sps$setup$column_number),
               c("qnsunburn",
                 "qnconcentrating",
                 "qncurrentasthma",
                 "qnwheresleep",
                 "qnspeakenglish",
                 "qntransgender"))

  expect_equal(head(sadc_parsed_sps$setup$column_name),
               c("Site_code",
                 "Site_name",
                 "Site_type",
                 "X1_District_2_State_3_National",
                 "X4_digit_Year_of_survey",
                 "X1_1991_14_2017"))
  expect_equal(tail(sadc_parsed_sps$setup$column_name),
               c("Had_a_sunburn",
                 "Have_serious_difficulty_concentrating_remembering_or_making_decisions",
                 "With_current_asthma",
                 "Usually_slept_in_the_home_of_a_friend_family_member_or_other_person_because_they_had_to_leave_their_home_or_their_parent_or_guardian_cannot_afford_housing",
                 "Speak_English_well_or_very_well",
                 "Are_transgender"))



  expect_equal(head(health_nutrition_parsed_sps$setup$column_number),
               c("SEQN",
                 "SDDSRVYR",
                 "RIDSTATR",
                 "RIDEXMON",
                 "RIAGENDR",
                 "RIDAGEYR"))
  expect_equal(tail(health_nutrition_parsed_sps$setup$column_number),
               c("MIAINTRP",
                 "AIALANG",
                 "WTINT2YR",
                 "WTMEC2YR",
                 "SDMVPSU",
                 "SDMVSTRA"))

  expect_equal(head(health_nutrition_parsed_sps$setup$column_name),
               c("Respondent_sequence_number",
                 "Data_Release_Number",
                 "Interview_Examination_Status",
                 "Six_month_time_period",
                 "Gender",
                 "Age_at_Screening_Adjudicated_Recode"))
  expect_equal(tail(health_nutrition_parsed_sps$setup$column_name),
               c("Interpreter_used_in_MEC_Interview",
                 "Language_of_ACASI_Interview",
                 "Full_Sample_2_Year_Interview_Weight",
                 "Full_Sample_2_Year_MEC_Exam_Weight",
                 "Masked_Variance_Pseudo_PSU",
                 "Masked_Variance_Pseudo_Stratum"))


  expect_equal(ad_health_parsed_sps$setup$column_number,
               c("AID",
                 "CLUSTER2",
                 "GSWGT4",
                 "GSWGT4_2",
                 "GSWGT134"))
  expect_equal(ad_health_parsed_sps$setup$column_name,
               c("RESPONDENT_IDENTIFIER",
                 "Sample_cluster",
                 "Post_stratified_untrimmed_longitudinal_grand_sample_weight",
                 "Post_stratified_untrimmed_cross_sectional_grand_sample_weight",
                 "Post_stratified_untrimmed_longitudinal_grand_sample_weight_for_Waves_I_III_and_IV"))



  expect_equal(head(india_human_parsed_sps$setup$column_number),
               c("SURVEY",
                 "STATEID",
                 "DISTID",
                 "PSUID",
                 "HHID",
                 "HHSPLITID"))
  expect_equal(tail(india_human_parsed_sps$setup$column_number),
               c("MGYEAR5",
                 "NMIG5",
                 "MGMONTHS5",
                 "MGYEAR1",
                 "NMIG1",
                 "MGMONTHS1"))

  expect_equal(head(india_human_parsed_sps$setup$column_name),
               c("IHDS_I_2005_or_IHDS_II_2012",
                 "State_code",
                 "District_code",
                 "PSU_village_neighborhood_code",
                 "Household_ID_3_digit",
                 "Split_household_ID"))
  expect_equal(tail(india_human_parsed_sps$setup$column_name),
               c("HQ6_4_1_Migrant_five_years_ago_or_less",
                 "HQ6_4_1_migrations_in_last_5_years",
                 "HQ6_4_7_total_months_gone_in_last_5_years",
                 "HQ6_4_8_Migrant_one_year_ago_or_less",
                 "HQ6_4_1_migrations_in_last_1_year",
                 "HQ6_4_7_total_months_gone_in_last_1_year"))


  expect_equal(head(escolar_parsed_sps$setup$column_number),
               c("MASCARA",
                 "ANO",
                 "CODMUNIC",
                 "UF",
                 "SIGLA",
                 "MUNIC"))
  expect_equal(tail(escolar_parsed_sps$setup$column_number),
               c("VTE165",
                 "VTE166",
                 "VTE167",
                 "VTE168",
                 "VTE169",
                 "VTE16A"))
  expect_equal(head(escolar_parsed_sps$setup$column_name),
               c("MASCARA",
                 "ANO",
                 "CODMUNIC",
                 "UF",
                 "SIGLA",
                 "MUNIC"))
  expect_equal(tail(escolar_parsed_sps$setup$column_name),
               c("VTE165",
                 "VTE166",
                 "VTE167",
                 "VTE168",
                 "VTE169",
                 "VTE16A"))


  expect_equal(head(step_in_parsed_sps$setup$column_number),
               c("CID",
                 "RCTR",
                 "FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD"))
  expect_equal(tail(step_in_parsed_sps$setup$column_number),
               c("FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD",
                 "EVENT",
                 "CHARGE"))
  expect_equal(head(step_in_parsed_sps$setup$column_name),
               c("CID",
                 "RCTR",
                 "FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD"))
  expect_equal(tail(step_in_parsed_sps$setup$column_name),
               c("FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD",
                 "EVENT",
                 "CHARGE"))


  expect_equal(head(cps_1973_parsed_sps$setup$column_number),
               c("V1001",
                 "V1002",
                 "V1003",
                 "V1004",
                 "V1005",
                 "V1006"))
  expect_equal(tail(cps_1973_parsed_sps$setup$column_number),
               c("V1264",
                 "V1265",
                 "V1266",
                 "V1267",
                 "V1268",
                 "V1269"))
  expect_equal(head(cps_1973_parsed_sps$setup$column_name),
               c("SMON",
                 "HHSEQNUM",
                 "HNUM",
                 "SUBH",
                 "STATS1",
                 "STATS2"))
  expect_equal(tail(cps_1973_parsed_sps$setup$column_name),
               c("AWAIT3",
                 "AWAIT4",
                 "AWAIT5",
                 "ICPSR_STUDY_NUMBER_7616",
                 "ICPSR_EDITION_NUMBER_1",
                 "ICPSR_PART_NUMBER_001"))


  expect_equal(head(census_police_parsed_sps$setup$column_number),
               c("CSLLEA08_ID",
                 "AGCYTYPE",
                 "SUBTYPE1",
                 "SUBTYPE2",
                 "TRIBAL",
                 "Q1A1"))
  expect_equal(tail(census_police_parsed_sps$setup$column_number),
               c("CITY",
                 "STATE",
                 "ZIP",
                 "STATENAME",
                 "COUNTY",
                 "FIPS"))
  expect_equal(head(census_police_parsed_sps$setup$column_name),
               c("AGENCY_IDENTIFIER",
                 "TYPE_OF_AGENCY",
                 "SPECIAL_JURISDICTION_GENERAL_TYPE",
                 "SPECIAL_JURISDICTION_SPECIFIC_TYPE",
                 "TRIBAL_AGENCY_INDICATOR",
                 "Q1A1_FIRST_RESPONSE_TO_CRIMINAL_INCIDENTS"))
  expect_equal(tail(census_police_parsed_sps$setup$column_name),
               c("CITY",
                 "STATE_CODE",
                 "ZIP",
                 "NAME_OF_STATE",
                 "COUNTY_NAME",
                 "FIPS_CODE"))


  expect_equal(head(british_crime_teen_parsed_sps$setup$column_number),
               c("ROW_LAB",
                 "TB_CASE",
                 "AR_CODE",
                 "T_SN",
                 "T_SCRN",
                 "BOOSTER"))
  expect_equal(tail(british_crime_teen_parsed_sps$setup$column_number),
               c("T69",
                 "T70",
                 "T71",
                 "T72",
                 "T73",
                 "T74"))
  expect_equal(head(british_crime_teen_parsed_sps$setup$column_name),
               c("ROW_LAB",
                 "TB_CASE",
                 "AR_CODE",
                 "T_SN",
                 "T_SCRN",
                 "BOOSTER"))
  expect_equal(tail(british_crime_teen_parsed_sps$setup$column_name),
               c("T69",
                 "T70",
                 "T71",
                 "T72",
                 "T73",
                 "T74"))


  expect_equal(head(drug_abuse_parsed_sps$setup$column_number),
               c("DEGREE_SPECIFY_OTHER",
                 "DISCIPLINE",
                 "DISCIPLINE_OTHER",
                 "STATE_CREDENTIALS_SPECIFY",
                 "NATIONAL_CERTIFICATION_OT",
                 "LICENSURE_SPECIFY"))
  expect_equal(tail(drug_abuse_parsed_sps$setup$column_number),
               c("DOCSUP",
                 "DOCLEAD",
                 "EOTDIV",
                 "EOTTOL",
                 "EOTSCO",
                 "EOTOPN"))
  expect_equal(head(drug_abuse_parsed_sps$setup$column_name),
               c("Degree_other",
                 "Discipline",
                 "Discipline_Other",
                 "State_substance_abuse_counseling_credentials_Not_in_CD",
                 "National_certification_Other_Not_in_CD",
                 "Licensure_Specify_Not_in_CD"))
  expect_equal(tail(drug_abuse_parsed_sps$setup$column_name),
               c("Organizational_Support_Subscale_RAND_section_D",
                 "Leadership_sub_scale_section_D",
                 "Divergence_sub_scale_section_E",
                 "Tolerance_for_ambiguity_section_E",
                 "Service_Coordination",
                 "Openness"))


  expect_equal(head(detroit_parsed_sps$setup$column_number),
               c("CASEID",
                 "IWERID",
                 "CASETYPE",
                 "FINALWGT",
                 "STRATUM",
                 "CLUSTER"))
  expect_equal(tail(detroit_parsed_sps$setup$column_number),
               c("J5A",
                 "J5B",
                 "J5C",
                 "J5D",
                 "J6",
                 "J7"))
  expect_equal(head(detroit_parsed_sps$setup$column_name),
               c("CASEID",
                 "IWER_ID",
                 "CASETYPE",
                 "FINAL_SAMPLE_WEIGHT",
                 "STRATUM",
                 "CLUSTER"))
  expect_equal(tail(detroit_parsed_sps$setup$column_name),
               c("IF_NO_WERE_FAMILY_MEMBERS_OR_FRIENDS_PRESENT",
                 "NUMBER_OF_OTHER_PEOPLE_PRESENT",
                 "DID_RESPONDENT_CONSULT_WITH_OTHERS_BEFORE_RESPONDING",
                 "DID_OTHERS_PRESENT_TRY_TO_ANSWER_FOR_RESPONDENT",
                 "DID_R_SEEM_GUARDED_NERVOUS_OR_SUSPICIOUS_ABOUT_THE_INTERVIEW",
                 "WAS_INTERVIEW_CONDUCTED_IN_PERSON_OR_BY_TELEPHONE"))


  expect_equal(head(worry_parsed_sps$setup$column_number),
               c("SUBJ",
                 "VERSION",
                 "PRE1",
                 "POST1",
                 "PRE2",
                 "POST2"))
  expect_equal(tail(worry_parsed_sps$setup$column_number),
               c("HOSPNEXT",
                 "EDUC",
                 "CHILDREN",
                 "BIS",
                 "EXTRAVER",
                 "STABLE"))
  expect_equal(head(worry_parsed_sps$setup$column_name),
               c("Subject_identification_number",
                 "Version",
                 "Overall_how_serious_a_problem_is_patient_safety_in_U_S_healthcare_today",
                 "How_serious_a_problem_is_patient_safety",
                 "Overall_how_serious_a_problem_is_medical_errors_in_U_S_healthcare_today",
                 "How_serious_a_problem_is_medical_errors"))
  expect_equal(tail(worry_parsed_sps$setup$column_name),
               c("How_likely_are_you_to_spend_a_night_in_the_hospital_in_the_coming_year",
                 "Your_highest_education_level",
                 "How_many_children_if_any_do_you_have_at_home",
                 "BIS_Behavioral_Inhibition_scale",
                 "Extraversion_scale",
                 "Stability_scale"))


  expect_equal(head(cps_2004_parsed_sps$setup$column_number),
               c("HRHHID",
                 "HRYEAR4",
                 "HURESPLI",
                 "HUFINAL",
                 "HUSPNISH",
                 "HETENURE"))
  expect_equal(tail(cps_2004_parsed_sps$setup$column_number),
               c("HEQ2C",
                 "HEQ2D",
                 "HEQ2E",
                 "HEQ3",
                 "HRSUPINT",
                 "HWSUPWGT"))
  expect_equal(head(cps_2004_parsed_sps$setup$column_name),
               c("HRHHID",
                 "HRYEAR4",
                 "HURESPLI",
                 "HUFINAL",
                 "HUSPNISH",
                 "HETENURE"))
  expect_equal(tail(cps_2004_parsed_sps$setup$column_name),
               c("HEQ2C",
                 "HEQ2D",
                 "HEQ2E",
                 "HEQ3",
                 "HRSUPINT",
                 "HWSUPWGT"))





  expect_equal(head(escolar_2006_parsed_sps$setup$column_number),
               c("MASCARA",
                 "ANO",
                 "CODMUNIC",
                 "UF",
                 "SIGLA",
                 "MUNIC"))
  expect_equal(head(escolar_2006_parsed_sps$setup$column_name),
               c("MASCARA",
                 "ANO",
                 "CODMUNIC",
                 "UF",
                 "SIGLA",
                 "MUNIC"))
  expect_equal(tail(escolar_2006_parsed_sps$setup$column_number),
               c("VTE1G9",
                 "VTE1GA",
                 "VTE1C7",
                 "VTE1C8",
                 "VTE1C9",
                 "VTE1CA"))
  expect_equal(tail(escolar_2006_parsed_sps$setup$column_name),
               c("VTE1G9",
                 "VTE1GA",
                 "VTE1C7",
                 "VTE1C8",
                 "VTE1C9",
                 "VTE1CA"))



  expect_equal(head(mtf_1999_parsed_sps$setup$column_number),
               c("V13", "V16", "V17",
                 "V5", "V1", "V3"))
  expect_equal(head(mtf_1999_parsed_sps$setup$column_name),
               c("X992_SCHL_RGN_4_CAT",
                 "X992_SELF_REP_NOT_0",
                 "X992_SMSA_NON_SMSA_0",
                 "SAMPLING_WEIGHT",
                 "YEAR_OF_ADMIN_4_DIGITS",
                 "X992_FORM_ID"))
  expect_equal(tail(mtf_1999_parsed_sps$setup$column_number),
               c("V113", "V114", "V205",
                 "V206", "V207", "CASEID"))
  expect_equal(tail(mtf_1999_parsed_sps$setup$column_name),
               c("X991B19B_X_MARJ_LAST12MO",
                 "X991B19C_X_MARJ_LAST30DA",
                 "X9915C32_R_S_BRANCH_SERV",
                 "X9915C33_R_XPCTS_BE_OFFCR",
                 "X9915C34_R_XPCTS_MLTR_CR",
                 "CASE_IDENTIFICATION_NUMBER"))


  expect_equal(head(mtf_2003_parsed_sps$setup$column_number),
               c("CASEID", "V13", "V16",
                 "V17", "V5", "V1"))
  expect_equal(head(mtf_2003_parsed_sps$setup$column_name),
               c("CASE_IDENTIFICATION_NUMBER",
                 "X022_SCHL_RGN_4_CAT",
                 "X022_SELF_REP_NOT_0",
                 "X022_SMSA_NON_SMSA_0",
                 "SAMPLING_WEIGHT",
                 "YEAR_OF_ADMIN_4_DIGITS"))
  expect_equal(tail(mtf_2003_parsed_sps$setup$column_number),
               c("V112", "V113", "V114",
                 "V205", "V206", "V207"))
  expect_equal(tail(mtf_2003_parsed_sps$setup$column_name),
               c("X021B019A_X_MARJ_LIFETIM",
                 "X021B019B_X_MARJ_LAST12M",
                 "X021B019C_X_MARJ_LAST30D",
                 "X0215C32_R_S_BRANCH_SERV",
                 "X0215C33_R_XPCTS_B_OFFCR",
                 "X0215C34_R_XPCTS_MLTR_CR"))


  expect_equal(head(mtf_1990_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_1990_parsed_sps$setup$column_name),
               c("X902_YEAR_OF_ADMINST",
                 "X902_FORM_ID",
                 "X902_R_S_ID_SERIAL",
                 "X902_SAMPLING_WEIGHT",
                 "X902_SCHL_RGN_4_CAT",
                 "X902_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_1990_parsed_sps$setup$column_number),
               c("V145", "V146", "V147",
                 "V208", "V209", "V210"))
  expect_equal(tail(mtf_1990_parsed_sps$setup$column_name),
               c("X902B17A_X_INHL_LIFETIME",
                 "X902B17B_X_INHL_LAST12MO",
                 "X902B17C_X_INHL_LAST30DA",
                 "ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER"))

  expect_equal(head(mtf_1989_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_1989_parsed_sps$setup$column_name),
               c("X892_YEAR_OF_ADMINST",
                 "X892_FORM_ID",
                 "X892_R_S_ID_SERIAL",
                 "X892_SAMPLING_WEIGHT",
                 "X892_SCHL_RGN_4_CAT",
                 "X892_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_1989_parsed_sps$setup$column_number),
               c("V205", "V206", "V207",
                 "V208", "V209", "V210"))
  expect_equal(tail(mtf_1989_parsed_sps$setup$column_name),
               c("X892C32_R_S_BRANCH_SERV",
                 "X892C33_R_XPCTS_B_OFFCR",
                 "X892C34_R_XPCTS_MLTR_CR",
                 "ICPSR_STUDY_NUMBER_9397",
                 "ICPSR_VERSION_NUMBER_1",
                 "ICPSR_PART_NUMBER_1"))


  expect_equal(head(mtf_2004_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_2004_parsed_sps$setup$column_name),
               c("X805_YEAR_OF_ADMINST",
                 "X805_FORM_ID",
                 "X805_R_S_ID_SERIAL",
                 "X805_SAMPLING_WEIGHT",
                 "X805_SCHL_RGN_4_CAT",
                 "X805_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_2004_parsed_sps$setup$column_number),
               c("V205", "V206", "V207",
                 "V9001", "V9002", "V9003"))
  expect_equal(tail(mtf_2004_parsed_sps$setup$column_name),
               c("X805C32_R_S_BRANCH_SERV",
                 "X805C33_R_XPCTS_B_OFFCR",
                 "X805C34_R_XPCTS_MLTR_CR",
                 "ICPSR_STUDY_NUMBER",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_DATA_VERSION_NO"))


  expect_equal(head(mtf_2002_parsed_sps$setup$column_number),
               c("V13", "V16", "V17",
                 "V5", "V1", "V3"))
  expect_equal(head(mtf_2002_parsed_sps$setup$column_name),
               c("X012_SCHL_RGN_4_CAT",
                 "X012_SELF_REP_NOT_0",
                 "X012_SMSA_NON_SMSA_0",
                 "SAMPLING_WEIGHT",
                 "YEAR_OF_ADMIN_4_DIGITS",
                 "X012_FORM_ID"))
  expect_equal(tail(mtf_2002_parsed_sps$setup$column_number),
               c("V113", "V114", "V205",
                 "V206", "V207", "CASEID"))
  expect_equal(tail(mtf_2002_parsed_sps$setup$column_name),
               c("X011B019B_X_MARJ_LAST12M",
                 "X011B019C_X_MARJ_LAST30D",
                 "X0115C32_R_S_BRANCH_SERV",
                 "X0115C33_R_XPCTS_B_OFFCR",
                 "X0115C34_R_XPCTS_MLTR_CR",
                 "CASE_IDENTIFICATION_NUMBER"))


  expect_equal(head(mtf_1993_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_1993_parsed_sps$setup$column_name),
               c("X922_YEAR_OF_ADMINST",
                 "X922_FORM_ID",
                 "X922_R_S_ID_SERIAL",
                 "X922_SAMPLING_WEIGHT",
                 "X922_SCHL_RGN_4_CAT",
                 "X922_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_1993_parsed_sps$setup$column_number),
               c("V145", "V146", "V147",
                 "V208", "V209", "V210"))
  expect_equal(tail(mtf_1993_parsed_sps$setup$column_name),
               c("X922B17A_X_INHL_LIFETIME",
                 "X922B17B_X_INHL_LAST12MO",
                 "X922B17C_X_INHL_LAST30DA",
                 "ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER"))


  expect_equal(head(mtf_1991_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_1991_parsed_sps$setup$column_name),
               c("X912_YEAR_OF_ADMINST",
                 "X912_FORM_ID",
                 "X912_R_S_ID_SERIAL",
                 "SAMPLING_WEIGHT",
                 "X912_SCHL_RGN_4_CAT",
                 "X912_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_1991_parsed_sps$setup$column_number),
               c("V145", "V146", "V147",
                 "V208", "V209", "V210"))
  expect_equal(tail(mtf_1991_parsed_sps$setup$column_name),
               c("X912B17A_X_INHL_LIFETIME",
                 "X912B17B_X_INHL_LAST12MO",
                 "X912B17C_X_INHL_LAST30DA",
                 "ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER"))

  expect_equal(head(mtf_1992_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_1992_parsed_sps$setup$column_name),
               c("X922_YEAR_OF_ADMINST",
                 "X922_FORM_ID",
                 "X922_R_S_ID_SERIAL",
                 "X922_SAMPLING_WEIGHT",
                 "X922_SCHL_RGN_4_CAT",
                 "X922_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_1992_parsed_sps$setup$column_number),
               c("V145", "V146", "V147",
                 "V208", "V209", "V210"))
  expect_equal(tail(mtf_1992_parsed_sps$setup$column_name),
               c("X922B17A_X_INHL_LIFETIME",
                 "X922B17B_X_INHL_LAST12MO",
                 "X922B17C_X_INHL_LAST30DA",
                 "ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER"))


  expect_equal(head(mtf_1979_parsed_sps$setup$column_number),
               c("V1", "V3", "V4",
                 "V5", "V13", "V16"))
  expect_equal(head(mtf_1979_parsed_sps$setup$column_name),
               c("X794_YEAR_OF_ADMINST",
                 "X794_FORM_ID",
                 "X794_R_S_ID_SERIAL",
                 "X794_SAMPLING_WEIGHT",
                 "X792_SCHL_RGN_4_CAT",
                 "X792_SELF_REP_NOT_0"))
  expect_equal(tail(mtf_1979_parsed_sps$setup$column_number),
               c("V4382", "V4383", "V4384",
                 "V9001", "V9002", "V9003"))
  expect_equal(tail(mtf_1979_parsed_sps$setup$column_name),
               c("DUMMY_ITEM_DELETED_IN_79",
                 "DUMMY_ITEM_DELETED_IN_79",
                 "DUMMY_ITEM_DELETED_IN_79",
                 "ICPSR_STUDY_NUMBER",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_VERSION_NUMBER"))
})