t/t0063-string-list.sh

   1 #!/bin/sh
   2 #
   3 # Copyright (c) 2012 Michael Haggerty
   4 #
   5
   6 test_description='Test string list functionality'
   7
   8 TEST_PASSES_SANITIZE_LEAK=true
   9 . ./test-lib.sh
  10
  11 test_split () {
  12         cat >expected &&
  13         test_expect_success "split $1 at $2, max $3" "
  14                 test-tool string-list split '$1' '$2' '$3' >actual &&
  15                 test_cmp expected actual &&
  16                 test-tool string-list split_in_place '$1' '$2' '$3' >actual &&
  17                 test_cmp expected actual
  18         "
  19 }
  20
  21 test_split "foo:bar:baz" ":" "-1" <<EOF
  22 3
  23 [0]: "foo"
  24 [1]: "bar"
  25 [2]: "baz"
  26 EOF
  27
  28 test_split "foo:bar:baz" ":" "0" <<EOF
  29 1
  30 [0]: "foo:bar:baz"
  31 EOF
  32
  33 test_split "foo:bar:baz" ":" "1" <<EOF
  34 2
  35 [0]: "foo"
  36 [1]: "bar:baz"
  37 EOF
  38
  39 test_split "foo:bar:baz" ":" "2" <<EOF
  40 3
  41 [0]: "foo"
  42 [1]: "bar"
  43 [2]: "baz"
  44 EOF
  45
  46 test_split "foo:bar:" ":" "-1" <<EOF
  47 3
  48 [0]: "foo"
  49 [1]: "bar"
  50 [2]: ""
  51 EOF
  52
  53 test_split "" ":" "-1" <<EOF
  54 1
  55 [0]: ""
  56 EOF
  57
  58 test_split ":" ":" "-1" <<EOF
  59 2
  60 [0]: ""
  61 [1]: ""
  62 EOF
  63
  64 test_expect_success "test filter_string_list" '
  65         test "x-" = "x$(test-tool string-list filter - y)" &&
  66         test "x-" = "x$(test-tool string-list filter no y)" &&
  67         test yes = "$(test-tool string-list filter yes y)" &&
  68         test yes = "$(test-tool string-list filter no:yes y)" &&
  69         test yes = "$(test-tool string-list filter yes:no y)" &&
  70         test y1:y2 = "$(test-tool string-list filter y1:y2 y)" &&
  71         test y2:y1 = "$(test-tool string-list filter y2:y1 y)" &&
  72         test "x-" = "x$(test-tool string-list filter x1:x2 y)"
  73 '
  74
  75 test_expect_success "test remove_duplicates" '
  76         test "x-" = "x$(test-tool string-list remove_duplicates -)" &&
  77         test "x" = "x$(test-tool string-list remove_duplicates "")" &&
  78         test a = "$(test-tool string-list remove_duplicates a)" &&
  79         test a = "$(test-tool string-list remove_duplicates a:a)" &&
  80         test a = "$(test-tool string-list remove_duplicates a:a:a:a:a)" &&
  81         test a:b = "$(test-tool string-list remove_duplicates a:b)" &&
  82         test a:b = "$(test-tool string-list remove_duplicates a:a:b)" &&
  83         test a:b = "$(test-tool string-list remove_duplicates a:b:b)" &&
  84         test a:b:c = "$(test-tool string-list remove_duplicates a:b:c)" &&
  85         test a:b:c = "$(test-tool string-list remove_duplicates a:a:b:c)" &&
  86         test a:b:c = "$(test-tool string-list remove_duplicates a:b:b:c)" &&
  87         test a:b:c = "$(test-tool string-list remove_duplicates a:b:c:c)" &&
  88         test a:b:c = "$(test-tool string-list remove_duplicates a:a:b:b:c:c)" &&
  89         test a:b:c = "$(test-tool string-list remove_duplicates a:a:a:b:b:b:c:c:c)"
  90 '
  91
  92 test_done