| --- RCPTT testcase --- |
| Format-Version: 1.0 |
| Q7-vendor: www.xored.com/q7 |
| Element-Name: SplitTest |
| Element-Type: testcase |
| Element-Version: 3.0 |
| External-Reference: |
| Id: _MT8fYWcoEeOMWNkDfJ1Ydw |
| Q7-Runtime-Version: 1.5.0.qualifier |
| Save-Time: 5/14/14 6:44 PM |
| Testcase-Type: ecl |
| |
| ------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa |
| Content-Type: text/plain |
| Entry-Name: .description |
| |
| Copyright (c) 2009, 2014 Xored Software Inc and others. |
| All rights reserved. This program and the accompanying materials |
| are made available under the terms of the Eclipse Public License v1.0 |
| which accompanies this distribution, and is available at |
| http://www.eclipse.org/legal/epl-v10.html |
| |
| Contributors: |
| Xored Software Inc - initial creation and/or initial documentation |
| -------------------------------------------------------------------------------- |
| ------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa-- |
| ------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac |
| Content-Type: text/ecl |
| Entry-Name: .content |
| |
| proc "test-split" [val str -input] [val sep] [val result] [val omitEmptyStrings [bool false]] [val trim [bool false]] { |
| $str | split $sep -omitEmptyStrings $omitEmptyStrings -trimResults $trim |
| | to-list | eq $result | assert-true |
| } |
| |
| test-split foo bar [list "foo"] |
| test-split foo o [list "f" "" ""] |
| test-split foo o [list "f"] -omitEmptyStrings |
| |
| test-split "a,b,c" "," [list "a" "b" "c"] |
| test-split "a, b, c" "," [list "a" " b" " c"] |
| test-split "a, b, c" "," [list "a" "b" "c"] -trim |
| |
| |
| ------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac-- |