First fixes and tests for IntlBidi.

ext/intl/tests/IntlBidi/IntlBidi___construct_basic.phpt

@@ -0,0 +1,14 @@
+--TEST--
+Regression test for the UBA implementation.
+--CREDITS--
+Timo Scholz <[email protected]>
+--SKIPIF--
+<?php if ( !extension_loaded('intl') ) print 'skip'; ?>
+<?php if ( !extension_loaded('mbstring')) print 'skip'; ?>
+--FILE--
+<?php
+$bidi = new \IntlBidi();
+?>
+==DONE==
+--EXPECT--
+==DONE==

ext/intl/tests/IntlBidi/IntlBidi_basic.phpt

@@ -0,0 +1,78 @@
+--TEST--
+Regression test for the UBA implementation.
+--CREDITS--
+Timo Scholz <[email protected]>
+--SKIPIF--
+<?php if ( !extension_loaded('intl') ) print 'skip'; ?>
+<?php if ( !extension_loaded('mbstring')) print 'skip'; ?>
+--FILE--
+<?php
+/**
+ * © 2016 and later: Unicode, Inc. and others.
+ * License & terms of use: http://www.unicode.org/copyright.html#License
+ *
+ *******************************************************************************
+ *   Copyright (C) 2001-2013, International Business Machines
+ *   Corporation and others.  All Rights Reserved.
+ *******************************************************************************
+ */
+/**
+ * Ported from Java.
+ * Original: https://github.com/unicode-org/icu/blob/master/icu4j/main/tests/core/src/com/ibm/icu/dev/test/bidi/TestReorder.java
+ */
+
+// include helper functions
+include 'IntlBidi_ut_common.inc';
+
+// the logical order of strings in a pseudo language.
+$logicalOrder = [
+    'del(KC)add(K.C.&)',
+    'del(QDVT) add(BVDL)',
+    'del(PQ)add(R.S.)T)U.&',
+    'del(LV)add(L.V.) L.V.&',
+    'day  0  R  DPDHRVR dayabbr',
+    'day  1  H  DPHPDHDA dayabbr',
+    'day  2   L  DPBLENDA dayabbr',
+    'day  3  J  DPJQVM  dayabbr',
+    'day  4   I  DPIQNF    dayabbr',
+    'day  5  M  DPMEG  dayabbr',
+    'helloDPMEG',
+    'hello WXY'
+];
+
+$nTests = \count($logicalOrder);
+for ($testNumber = 0; $testNumber < $nTests; $testNumber++) {
+
+    // prepare the source.
+    $src = $logicalOrder[$testNumber];
+    // translate the pseudo language using a mapping.
+    $srcUt8 = pseudoToU8($src);
+
+    $bidi = new \IntlBidi();
+    $bidi->setInverse(true);
+
+    $levels = str_repeat("\0", IntlBidi::MAX_EXPLICIT_LEVEL);
+    for ($i = 0; $i < 10; $i++) {
+        $levels[$i] = chr($i + 1);
+    }
+
+    $bidi->setPara($srcUt8, \IntlBidi::DEFAULT_LTR, $levels);
+    $result = u8ToPseudo($bidi->getReordered(\IntlBidi::OUTPUT_REVERSE));
+    var_dump($result);
+}
+?>
+==DONE==
+--EXPECT--
+string(17) ")K.C.&(KC)dda(led"
+string(19) ")BVDL(ddaQDVT) (led"
+string(21) "R.S.)T)U.&(PQ)dda(led"
+string(22) "L.V.) L.V.&(LV)dda(led"
+string(26) "rbbayad DPDHRVR   R  0 yad"
+string(27) "rbbayad DPHPDHDA   H  1 yad"
+string(28) "rbbayad DPBLENDA     L 2 yad"
+string(26) "rbbayad  DPJQVM   J  3 yad"
+string(29) "rbbayad    DPIQNF     I 4 yad"
+string(25) "rbbayad  DPMEG   M  5 yad"
+string(10) "DPMEGolleh"
+string(9) "WXY olleh"
+==DONE==

ext/intl/tests/IntlBidi/IntlBidi_basic1.phpt

@@ -0,0 +1,77 @@
+--TEST--
+Regression test for the UBA implementation.
+--CREDITS--
+Timo Scholz <[email protected]>
+--SKIPIF--
+<?php if ( !extension_loaded('intl') ) print 'skip'; ?>
+<?php if ( !extension_loaded('mbstring')) print 'skip'; ?>
+--FILE--
+<?php
+/**
+ * © 2016 and later: Unicode, Inc. and others.
+ * License & terms of use: http://www.unicode.org/copyright.html#License
+ *
+ *******************************************************************************
+ *   Copyright (C) 2001-2013, International Business Machines
+ *   Corporation and others.  All Rights Reserved.
+ *******************************************************************************
+ */
+/**
+ * Ported from Java.
+ * Original: https://github.com/unicode-org/icu/blob/master/icu4j/main/tests/core/src/com/ibm/icu/dev/test/bidi/TestReorder.java
+ */
+
+include 'IntlBidi_ut_common.inc';
+
+// --- INIT TEST DATA ---
+
+$logicalOrder = [
+    'del(KC)add(K.C.&)',
+    'del(QDVT) add(BVDL)',
+    'del(PQ)add(R.S.)T)U.&',
+    'del(LV)add(L.V.) L.V.&',
+    'day  0  R  DPDHRVR dayabbr',
+    'day  1  H  DPHPDHDA dayabbr',
+    'day  2   L  DPBLENDA dayabbr',
+    'day  3  J  DPJQVM  dayabbr',
+    'day  4   I  DPIQNF    dayabbr',
+    'day  5  M  DPMEG  dayabbr',
+    'helloDPMEG',
+    'hello WXY'
+];
+
+// --- RUN TEST ---
+
+$nTests = \count($logicalOrder);
+for ($testNumber = 0; $testNumber < $nTests; $testNumber++) {
+
+    // prepare the source.
+    $src = $logicalOrder[$testNumber];
+    $srcUt8 = pseudoToU8($src);
+
+    $bidi = new \IntlBidi();
+    $bidi->setInverse(true);
+    $levels = str_repeat("\0", IntlBidi::MAX_EXPLICIT_LEVEL);
+    for ($i = 0; $i < 10; $i++) {
+        $levels[$i] = chr($i + 1);
+    }
+    $bidi->setPara($srcUt8, \IntlBidi::DEFAULT_LTR, $levels);
+    $result = u8ToPseudo($bidi->getReordered(\IntlBidi::DO_MIRRORING | \IntlBidi::REMOVE_BIDI_CONTROLS));
+    var_dump($result);
+}
+?>
+==DONE==
+--EXPECT--
+string(16) "del(add(CK(.C.K)"
+string(19) "del( (TVDQadd(LDVB)"
+string(20) "del(add(QP(.U(T(.S.R"
+string(21) "del(add(VL(.V.L (.V.L"
+string(26) "day 0  R   RVRHDPD dayabbr"
+string(27) "day 1  H   ADHDPHPD dayabbr"
+string(28) "day 2 L     ADNELBPD dayabbr"
+string(26) "day 3  J   MVQJPD  dayabbr"
+string(29) "day 4 I     FNQIPD    dayabbr"
+string(25) "day 5  M   GEMPD  dayabbr"
+string(10) "helloGEMPD"
+string(9) "hello YXW"
+==DONE==

ext/intl/tests/IntlBidi/IntlBidi_getReordered_basic.phpt

@@ -0,0 +1,72 @@
+--TEST--
+Regression test for the UBA implementation.
+--CREDITS--
+Timo Scholz <[email protected]>
+--SKIPIF--
+<?php if ( !extension_loaded('intl') ) print 'skip'; ?>
+<?php if ( !extension_loaded('mbstring')) print 'skip'; ?>
+--FILE--
+<?php
+/**
+ * © 2016 and later: Unicode, Inc. and others.
+ * License & terms of use: http://www.unicode.org/copyright.html#License
+ *
+ *******************************************************************************
+ *   Copyright (C) 2001-2013, International Business Machines
+ *   Corporation and others.  All Rights Reserved.
+ *******************************************************************************
+ */
+/**
+ * Ported from Java.
+ * Original: https://github.com/unicode-org/icu/blob/master/icu4j/main/tests/core/src/com/ibm/icu/dev/test/bidi/TestReorder.java
+ */
+
+include 'IntlBidi_ut_common.inc';
+
+// --- INIT TEST DATA ---
+
+$logicalOrder = [
+    'del(KC)add(K.C.&)',
+    'del(QDVT) add(BVDL)',
+    'del(PQ)add(R.S.)T)U.&',
+    'del(LV)add(L.V.) L.V.&',
+    'day  0  R  DPDHRVR dayabbr',
+    'day  1  H  DPHPDHDA dayabbr',
+    'day  2   L  DPBLENDA dayabbr',
+    'day  3  J  DPJQVM  dayabbr',
+    'day  4   I  DPIQNF    dayabbr',
+    'day  5  M  DPMEG  dayabbr',
+    'helloDPMEG',
+    'hello WXY'
+];
+
+// --- RUN TEST ---
+
+$nTests = \count($logicalOrder);
+for ($testNumber = 0; $testNumber < $nTests; $testNumber++) {
+
+    // prepare the source.
+    $src = $logicalOrder[$testNumber];
+    $srcUt8 = pseudoToU8($src);
+
+    $bidi = new \IntlBidi();
+    $bidi->setPara($srcUt8, \IntlBidi::DEFAULT_LTR);
+    $result = u8ToPseudo($bidi->getReordered(\IntlBidi::DO_MIRRORING));
+    var_dump($result);
+}
+?>
+==DONE==
+--EXPECT--
+string(17) "del(CK)add(&.C.K)"
+string(19) "del(TVDQ) add(LDVB)"
+string(21) "del(QP)add(S.R.)&.U(T"
+string(22) "del(VL)add(V.L.) &.V.L"
+string(26) "day  0  RVRHDPD  R dayabbr"
+string(27) "day  1  ADHDPHPD  H dayabbr"
+string(28) "day  2   ADNELBPD  L dayabbr"
+string(26) "day  3  MVQJPD  J  dayabbr"
+string(29) "day  4   FNQIPD  I    dayabbr"
+string(25) "day  5  GEMPD  M  dayabbr"
+string(10) "helloGEMPD"
+string(9) "hello YXW"
+==DONE==

ext/intl/tests/IntlBidi/IntlBidi_getReordered_basic1.phpt

@@ -0,0 +1,72 @@
+--TEST--
+Regression test for the UBA implementation.
+--CREDITS--
+Timo Scholz <[email protected]>
+--SKIPIF--
+<?php if ( !extension_loaded('intl') ) print 'skip'; ?>
+<?php if ( !extension_loaded('mbstring')) print 'skip'; ?>
+--FILE--
+<?php
+/**
+ * © 2016 and later: Unicode, Inc. and others.
+ * License & terms of use: http://www.unicode.org/copyright.html#License
+ *
+ *******************************************************************************
+ *   Copyright (C) 2001-2013, International Business Machines
+ *   Corporation and others.  All Rights Reserved.
+ *******************************************************************************
+ */
+/**
+ * Ported from Java.
+ * Original: https://github.com/unicode-org/icu/blob/master/icu4j/main/tests/core/src/com/ibm/icu/dev/test/bidi/TestReorder.java
+ */
+
+include 'IntlBidi_ut_common.inc';
+
+// --- INIT TEST DATA ---
+
+$logicalOrder = [
+    'del(KC)add(K.C.&)',
+    'del(QDVT) add(BVDL)',
+    'del(PQ)add(R.S.)T)U.&',
+    'del(LV)add(L.V.) L.V.&',
+    'day  0  R  DPDHRVR dayabbr',
+    'day  1  H  DPHPDHDA dayabbr',
+    'day  2   L  DPBLENDA dayabbr',
+    'day  3  J  DPJQVM  dayabbr',
+    'day  4   I  DPIQNF    dayabbr',
+    'day  5  M  DPMEG  dayabbr',
+    'helloDPMEG',
+    'hello WXY'
+];
+
+// --- RUN TEST ---
+
+$nTests = \count($logicalOrder);
+for ($testNumber = 0; $testNumber < $nTests; $testNumber++) {
+
+    // prepare the source.
+    $src = $logicalOrder[$testNumber];
+    $srcUt8 = pseudoToU8($src);
+
+    $bidi = new \IntlBidi();
+    $bidi->setPara($srcUt8, \IntlBidi::DEFAULT_LTR);
+    $result = u8ToPseudo($bidi->getReordered(\IntlBidi::DO_MIRRORING | \IntlBidi::OUTPUT_REVERSE));
+    var_dump($result);
+}
+?>
+==DONE==
+--EXPECT--
+string(17) ")K.C.&(dda)KC(led"
+string(19) ")BVDL(dda )QDVT(led"
+string(21) "T(U.&).R.S(dda)PQ(led"
+string(22) "L.V.& ).L.V(dda)LV(led"
+string(26) "rbbayad R  DPDHRVR  0  yad"
+string(27) "rbbayad H  DPHPDHDA  1  yad"
+string(28) "rbbayad L  DPBLENDA   2  yad"
+string(26) "rbbayad  J  DPJQVM  3  yad"
+string(29) "rbbayad    I  DPIQNF   4  yad"
+string(25) "rbbayad  M  DPMEG  5  yad"
+string(10) "DPMEGolleh"
+string(9) "WXY olleh"
+==DONE==

ext/intl/tests/IntlBidi/IntlBidi_getReordered_basic2.phpt

@@ -0,0 +1,73 @@
+--TEST--
+Regression test for the UBA implementation.
+--CREDITS--
+Timo Scholz <[email protected]>
+--SKIPIF--
+<?php if ( !extension_loaded('intl') ) print 'skip'; ?>
+<?php if ( !extension_loaded('mbstring')) print 'skip'; ?>
+--FILE--
+<?php
+/**
+ * © 2016 and later: Unicode, Inc. and others.
+ * License & terms of use: http://www.unicode.org/copyright.html#License
+ *
+ *******************************************************************************
+ *   Copyright (C) 2001-2013, International Business Machines
+ *   Corporation and others.  All Rights Reserved.
+ *******************************************************************************
+ */
+/**
+ * Ported from Java.
+ * Original: https://github.com/unicode-org/icu/blob/master/icu4j/main/tests/core/src/com/ibm/icu/dev/test/bidi/TestReorder.java
+ */
+
+include 'IntlBidi_ut_common.inc';
+
+// --- INIT TEST DATA ---
+
+$logicalOrder = [
+    'del(KC)add(K.C.&)',
+    'del(QDVT) add(BVDL)',
+    'del(PQ)add(R.S.)T)U.&',
+    'del(LV)add(L.V.) L.V.&',
+    'day  0  R  DPDHRVR dayabbr',
+    'day  1  H  DPHPDHDA dayabbr',
+    'day  2   L  DPBLENDA dayabbr',
+    'day  3  J  DPJQVM  dayabbr',
+    'day  4   I  DPIQNF    dayabbr',
+    'day  5  M  DPMEG  dayabbr',
+    'helloDPMEG',
+    'hello WXY'
+];
+
+// --- RUN TEST ---
+
+$nTests = \count($logicalOrder);
+for ($testNumber = 0; $testNumber < $nTests; $testNumber++) {
+
+    // prepare the source.
+    $src = $logicalOrder[$testNumber];
+    $srcUt8 = pseudoToU8($src);
+
+    $bidi = new \IntlBidi();
+    $bidi->setInverse(true);
+    $bidi->setPara($srcUt8, \IntlBidi::DEFAULT_LTR);
+    $result = u8ToPseudo($bidi->getReordered(\IntlBidi::OUTPUT_REVERSE | \IntlBidi::INSERT_LRM_FOR_NUMERIC));
+    var_dump($result);
+}
+?>
+==DONE==
+--EXPECT--
+string(22) "@)@K.C.&@(dda)@KC@(led"
+string(24) "@)@BVDL@(dda )@QDVT@(led"
+string(24) "R.S.)T)U.&@(dda)@PQ@(led"
+string(25) "L.V.) L.V.&@(dda)@LV@(led"
+string(28) "rbbayad @R  DPDHRVR@  0  yad"
+string(29) "rbbayad @H  DPHPDHDA@  1  yad"
+string(30) "rbbayad @L  DPBLENDA@   2  yad"
+string(28) "rbbayad  @J  DPJQVM@  3  yad"
+string(31) "rbbayad    @I  DPIQNF@   4  yad"
+string(27) "rbbayad  @M  DPMEG@  5  yad"
+string(10) "DPMEGolleh"
+string(10) "WXY@ olleh"
+==DONE==