stats_package_syntax_file_generator 1.0.1

data/tests/tc_maker.rb

@@ -0,0 +1,172 @@
+# This file is part of the Minnesota Population Center's stats_package_syntax_file_generator project.
+# For copyright and licensing information, see the NOTICE and LICENSE files
+# in this project's top-level directory, and also on-line at:
+#   https://github.com/mnpopcenter/stats_package_syntax_file_generator
+
+require File.expand_path(File.join(File.dirname(__FILE__), 'setup.rb'))
+
+module StatsPackageSyntaxFileGeneratorTest
+class Maker < Test::Unit::TestCase
+
+include StatsPackageSyntaxFileGeneratorTestSetup
+
+def test_create_maker
+    msg = 'Try to create an object.'
+    mk = new_maker()
+    assert_instance_of StatsPackageSyntaxFileGenerator::Maker, mk, msg
+end
+
+def test_syntax_end
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker()
+    mk.cmd_end = '.'
+    assert_equal ['.', ''], mk.syntax_end, msg
+end
+
+def test_q
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker()
+    orig   = %q{"A "quoted" 'string' with ""extra-quotes"""}
+    quoted = %q{"""A ""quoted"" 'string' with """"extra-quotes"""""""}
+    assert_equal quoted, mk.q(orig), msg
+end
+
+def test_val_q
+    msg = 'Numeric variable: the method should convert to string.'
+    mk = new_maker()
+    v = new_variable()
+    assert_equal '1234', mk.val_q(v, 1234), msg
+
+    msg = 'String variable: the method should convert to string and quote.'
+    v.is_string_var = true
+    assert_equal '"123456"', mk.val_q(v, 123456), msg
+    assert_equal '"-123456"', mk.val_q(v, -123456), msg
+end
+
+def test_val_as_s
+    msg = 'Numeric variable: the method should convert to string.'
+    mk = new_maker()
+    v = new_variable()
+    assert_equal '1234', mk.val_as_s(v, 1234), msg
+
+    msg = 'String variable, non-integer value: the method should convert to string.'
+    v.is_string_var = true
+    assert_equal 'ab',    mk.val_as_s(v, 'ab'), msg
+    assert_equal '123.2', mk.val_as_s(v, 123.2), msg
+    assert_equal '',      mk.val_as_s(v, ''), msg
+
+    msg = 'String variable, integer value: the method should convert to string and zero-pad.'
+    assert_equal '0012',    mk.val_as_s(v, 12), msg
+    assert_equal '-034',    mk.val_as_s(v, -34), msg
+    assert_equal '123456',  mk.val_as_s(v, 123456), msg
+    assert_equal '-123456', mk.val_as_s(v, -123456), msg
+end
+
+def test_label_trunc
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker()
+    assert_equal '12',   mk.label_trunc(123,  2), msg
+    assert_equal '123',  mk.label_trunc(123, 12), msg
+    assert_equal '',     mk.label_trunc('',  12), msg
+    assert_equal 'foo_', mk.label_trunc('foo_bar', 4), msg
+end
+
+def test_label_segments
+    mk = new_maker()
+
+    msg = 'Non-string should be converted to string.'
+    assert_equal ['12345'],     mk.label_segments(12345, 10), msg
+    assert_equal ['123', '45'], mk.label_segments(12345, 3), msg
+
+    msg = 'Empty string and nil should work.'
+    assert_equal [''], mk.label_segments('',  10), msg
+    assert_equal [''], mk.label_segments(nil, 10), msg
+
+    msg = 'Compare against hardcoded result.'
+    label = "A really long label"
+    label_copy = String.new(label)
+    expected = [
+        'A reall',
+        'y long ',
+        'label',
+    ]
+    assert_equal expected, mk.label_segments(label, 7), msg
+
+    msg = 'Make sure the original string was not destroyed.'
+    assert_equal label_copy, label, msg
+end
+
+def test_weave_label_segments
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker()
+    fmt = "%-7s %s %-7s"
+    a = [
+        "a very",
+        "long v",
+        "alue",
+    ]
+    b = [
+        "a very",
+        "long l",
+        "abel",
+    ]
+    expected = [
+        "a very  +        ",
+        "long v  +        ",
+        "alue    = a very ",
+        "        + long l ",
+        "        + abel   ",
+    ]
+    assert_equal expected, mk.weave_label_segments(fmt, a, b, '=', '+')
+end
+
+def test_labelable_values
+    msg = 'Non-integer values should not be treated as labelable values.'
+    mk = new_maker()
+    var = new_variable()
+    add_new_values_to_var(var)
+    n = var.values.size
+    var.add_value(:value => 'X')
+    var.add_value(:value => '123x')
+    var.add_value(:value => '')
+    var.add_value(:value => -123)
+    assert_equal n + 4, var.values.size, msg
+    assert_equal n + 1, mk.labelable_values(var).size, msg
+end
+
+def test_max_value_length
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker()
+    var = new_variable()
+
+    msg = 'A variable with no values should have a max_value_length of zero.'
+    assert_equal 0, mk.max_value_length(var, var.values), msg
+
+    msg = 'The method should agree with direct computation.'
+    add_new_values_to_var(var)
+    mx = params_values().map { |pv| pv[:value].to_s.length }.max
+    assert_equal mx, mk.max_value_length(var, var.values), msg
+
+    msg = 'Compare against hardcoded result.'
+    var.add_value( params_value(123456789012345) )
+    assert_equal 15, mk.max_value_length(var, var.values), msg
+end
+
+def test_comments_start
+    msg = 'Only web_app uses comments.'
+    mk = new_maker()
+    mk.sfc.caller = 'vb'
+    assert_equal '', mk.comments_start.join(''), msg
+    mk.sfc.caller = 'web_app'
+    assert_not_equal '', mk.comments_start.join(''), msg
+end
+
+def test_comments_end
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker()
+    assert_equal [], mk.comments_end, msg
+end
+
+
+end
+end

data/tests/tc_maker_sas.rb

@@ -0,0 +1,251 @@
+# This file is part of the Minnesota Population Center's stats_package_syntax_file_generator project.
+# For copyright and licensing information, see the NOTICE and LICENSE files
+# in this project's top-level directory, and also on-line at:
+#   https://github.com/mnpopcenter/stats_package_syntax_file_generator
+
+require File.expand_path(File.join(File.dirname(__FILE__), 'setup.rb'))
+
+module StatsPackageSyntaxFileGeneratorTest
+class MakerSAS < Test::Unit::TestCase
+
+include StatsPackageSyntaxFileGeneratorTestSetup
+
+def test_create_maker_sas
+    msg = 'Try to create an object.'
+    mk = new_maker('sas')
+    assert_instance_of StatsPackageSyntaxFileGenerator::MakerSAS, mk, msg
+end
+
+def test_syn_fmt_big_nums
+  msg = "Compare against hardcoded result."
+  mk = new_maker('sas')
+  expected = [
+      "  BIGDEC    11.5",
+      "  BIGINT    19."
+  ]
+  var_list = names_to_vars( mk.sfc, %w(BIGDEC BIGINT) )
+  actual = mk.syn_fmt_big_nums_for_var_list(var_list)
+  assert_equal expected, actual, msg
+end
+
+def test_syn_val_labs_for_var_start
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        'value $ RECTYPE_f',
+        'value SEX_f',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE SEX) )
+    var_list.each_index { |i|
+        actual = mk.syn_val_labs_for_var_start(var_list[i])
+        assert_equal expected[i], actual, msg
+    }
+end
+
+def test_syn_val_labs_for_var
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        [
+          '  "H" = "Household"',
+          '  "P" = "Person"',
+        ],
+        [
+          '  1 = "Directly covered person"',
+          '  2 = "Covered through family member"',
+          '  3 = "Not covered"',
+        ],
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE SOCSEC) )
+    var_list.each_index { |i|
+        actual = mk.syn_val_labs_for_var(var_list[i])
+        assert_equal expected[i], actual, msg
+    }
+end
+
+def test_syn_val_lab_for_val
+    msg = 'Compare against hardcoded result.'
+    fmt = "  %-8s %s %s"
+    mk = new_maker('sas')
+    var = new_variable()
+    var.values[0] = new_value()
+    tests = [
+        [ false,  99, 'fubb',  ['  99       = "fubb"'] ],
+        [ false,   9, 'fubb',  ['  9        = "fubb"'] ],
+        [ true,  'a', 'fubb',  ['  "a"      = "fubb"'] ],
+        [
+            true,
+            'x' * 120,
+            'fubb' * 30,
+            [
+                '  "' + ('x' * 100) + '"   ',
+                '  "' + ('x' *  20) + '" = "' + ('fubb' * 25) + '"',
+                '             "'              + ('fubb' *  5) + '"',
+            ]
+        ],
+    ]
+    tests.each_index { |i|
+        var.is_string_var   = tests[i][0]
+        var.values[0].value = tests[i][1]
+        var.values[0].label = tests[i][2]
+        actual = mk.syn_val_lab_for_val(var, var.values[0], fmt)
+        assert_equal tests[i][3], actual, msg
+    }
+end
+
+def test_syn_var_locations
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        '  RECTYPE  $ 1-1',
+        '  DWNUM      2-7',
+        '  SEX        68-68',
+        '  AGE        69-71',
+        '  RESPREV2   80-83 .3',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE DWNUM SEX AGE RESPREV2) )
+    actual = mk.syn_var_locations(var_list)
+    assert_equal expected, actual, msg
+end
+
+def test_syn_dfh_retain
+    mk = new_maker('sas')
+
+    msg = 'Compare against hardcoded result.'
+    expected = [
+        'retain',
+        '  CANTON',
+        '  URBAN',
+        '  DWTYPE',
+        '  OWNERSHP',
+        '  RENT',
+        ';',
+        '',
+    ]
+    mk.sfc.rectangularize = true
+    assert_equal expected, mk.syn_dfh_retain, msg
+
+    msg = 'Should be empty list if rectangularize option is not set.'
+    expected = []
+    mk.sfc.rectangularize = false
+    assert_equal expected, mk.syn_dfh_retain, msg
+
+    msg = 'Should be empty list if there are no variables.'
+    expected = []
+    mk.sfc.rectangularize = true
+    mk.sfc.clear_variables
+    assert_equal expected, mk.syn_dfh_retain, msg
+end
+
+def test_syn_dfh_rec_type_block
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        'input',
+        '  RECTYPE  $ 1-1 @',
+        ';',
+    ]
+    actual = mk.syn_dfh_rec_type_block
+    assert_equal expected, actual, msg
+end
+
+def test_syn_dfh_if_start
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        'if RECTYPE = "H" then do;',
+        'else if RECTYPE = "P" then do;',
+    ]
+    actual = [
+        mk.syn_dfh_if_start('if',      'H'),
+        mk.syn_dfh_if_start('else if', 'P'),
+    ]
+    expected.each_index { |i| assert_equal expected[i], actual[i], msg }
+end
+
+def test_syn_dfh_if_end
+    msg = 'Compare against hardcoded result: no rectangularize, '
+    mk = new_maker('sas')
+    expected = {
+        'H' => [ 'output;', 'end;', '' ],
+        'P' => [ 'output;', 'end;', '' ],
+    }
+    mk.sfc.rectangularize = false
+    expected.each { |k,v|
+        assert_equal expected[k], mk.syn_dfh_if_end(k), msg + k
+    }
+
+    msg = 'Compare against hardcoded result: rectangularize, '
+    mk.sfc.rectangularize = true
+    expected['H'].shift
+    expected.each { |k,v|
+        assert_equal expected[k], mk.syn_dfh_if_end(k), msg + k
+    }
+end
+
+def test_syn_var_lab_for_var
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        [ '  RECTYPE  = "Record type"' ],
+        [ '  HDFIRSTD = "Head not first [""dwelling-wide""] {note}"' ],
+        [
+          '  SEX      = "' + ('fubb' * 25) + '"',
+          '             "' + ('fubb' *  5) + '"',
+        ],
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE HDFIRSTD SEX) )
+    var_list[2].label = 'fubb' * 30
+    expected.each_index { |i|
+        actual = mk.syn_var_lab_for_var(var_list[i])
+        assert_equal expected[i], actual, msg
+    }
+end
+
+def test_syn_fmt_link_for_var_list
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        '  RECTYPE   RECTYPE_f.',
+        '  HDFIRSTD  HDFIRSTD_f.',
+        '  SEX       SEX_f.',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE HDFIRSTD SEX) )
+    actual = mk.syn_fmt_link_for_var_list(var_list)
+    assert_equal expected, actual, msg
+
+    msg = 'Should return [] if there are no variables.'
+    mk.sfc.clear_variables
+    assert_equal [], mk.syn_fmt_link, msg
+end
+
+def test_implied_decimal_fmt
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('sas')
+    expected = [
+        '',
+        '',
+        ' .1',
+        ' .3',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE SEX CANTON RESPREV2) )
+    actual = var_list.map { |v| mk.implied_decimal_fmt(v) }
+    assert_equal expected, actual, msg
+end
+
+def test_non_last_non_common_vars
+    mk = new_maker('sas')
+
+    msg = 'Compare against hardcoded result.'
+    expected = ['CANTON', 'URBAN', 'DWTYPE', 'OWNERSHP', 'RENT']
+    var_list = mk.non_last_non_common_vars
+    assert_equal expected, vars_to_names(var_list), msg
+
+    msg = 'Should return empty list if there are no variables.'
+    mk.sfc.clear_variables
+    var_list = mk.non_last_non_common_vars
+    assert_equal [], vars_to_names(var_list), msg
+end
+
+end
+end

data/tests/tc_maker_spss.rb

@@ -0,0 +1,121 @@
+# This file is part of the Minnesota Population Center's stats_package_syntax_file_generator project.
+# For copyright and licensing information, see the NOTICE and LICENSE files
+# in this project's top-level directory, and also on-line at:
+#   https://github.com/mnpopcenter/stats_package_syntax_file_generator
+
+require File.expand_path(File.join(File.dirname(__FILE__), 'setup.rb'))
+
+module StatsPackageSyntaxFileGeneratorTest
+class MakerSPSS < Test::Unit::TestCase
+
+include StatsPackageSyntaxFileGeneratorTestSetup
+
+def test_create_maker_spss
+    msg = 'Try to create an object.'
+    mk = new_maker('spss')
+    assert_instance_of StatsPackageSyntaxFileGenerator::MakerSPSS, mk, msg
+end
+
+def test_syn_dfh_file_type
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('spss')
+    expected = [
+        'file type mixed',
+        '  /file = "xx9999a.dat"',
+        '  /record = 1-1 (a)',
+        '.',
+        '',
+    ]
+    assert_equal expected, mk.syn_dfh_file_type, msg
+end
+
+def test_syn_dfh_data_block_start
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('spss')
+    expected = [
+        'record type "H".',
+        'data list /',
+    ]
+    actual = mk.syn_dfh_data_block_start('H')
+    assert_equal expected, actual, msg
+end
+
+def test_syn_var_locations
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('spss')
+    expected = [
+        '  RECTYPE   1-1 (a)',
+        '  CANTON    67-69 (1)',
+        '  AGE       69-71',
+        '  LIT       101-101',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE CANTON AGE LIT) )
+    actual = mk.syn_var_locations(var_list)
+    assert_equal expected, actual, msg
+end
+
+def test_syn_var_labs
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('spss')
+    expected = [
+        'variable labels',
+        '  HHNUM       """Household number"""',
+        '  HDFIRSTD    "Head not first [""dwelling-wide""] {note}"',
+        '  CANTON      "Canton ""geo area"""',
+        '  SEX         ".........x.........x.........x.........x.........x.........x.........x.........x.........x.........x"',
+        '            + ".........x.........x"',
+        '.',
+        '',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(HHNUM HDFIRSTD CANTON SEX) )
+    var_list[-1].label = '.........x' * 15
+    actual = mk.syn_var_labs(var_list)
+    assert_equal expected, actual, msg
+end
+
+def test_syn_val_labs_for_var
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('spss')
+    expected = [
+        [
+            '  /RECTYPE',
+            '    "H"   "Household"',
+            '    "P"   "Person"',
+        ],
+        [
+            '  /URBAN',
+            '    1   "Urban"',
+            '    2   "Rural"',
+        ],
+        [
+            '  /SEX',
+            '    1   "Male"',
+            '    2   ".........x.........x.........x.........x.........x.........x.........x.........x.........x.........x"',
+            '      + ".........x.........x"',
+        ],
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE URBAN SEX) )
+    var_list[-1].values[-1].label = '.........x' * 15
+    var_list.each_index { |i|
+        actual = mk.syn_val_labs_for_var(var_list[i])
+        assert_equal expected[i], actual, msg
+    }
+end
+
+def test_var_fmt
+    msg = 'Compare against hardcoded result.'
+    mk = new_maker('spss')
+    expected = [
+        ' (a)',
+        ' (1)',
+        '',
+        ' (3)',
+    ]
+    var_list = names_to_vars( mk.sfc, %w(RECTYPE CANTON URBAN RESPREV2) )
+    actual = var_list.map { |v| mk.var_fmt(v) }
+    assert_equal expected, actual, msg
+end
+
+
+end
+end