collecthor / spss

tests/SavRandomReadWriteTest.php

<?php

namespace SPSS\Tests;

use SPSS\Sav\Reader;
use SPSS\Sav\Record;
use SPSS\Sav\Writer;
use SPSS\Utils;

class SavRandomReadWriteTest extends TestCase
{
    /**
     * @return array
     */
    public function provider()
    {
        $header = [
            'recType' => Record\Header::NORMAL_REC_TYPE,
            'prodName' => '@(#) SPSS DATA FILE',
            'layoutCode' => 2,
            'nominalCaseSize' => 0,
            'casesCount' => 1, //mt_rand(10, 100),
            'compression' => 1,
            'weightIndex' => 0,
            'bias' => 100,
            'creationDate' => date('d M y'),
            'creationTime' => date('H:i:s'),
            'fileLabel' => 'test read/write',
        ];

        $documents = [
            $this->generateRandomString(mt_rand(5, Record\Document::LENGTH)),
            $this->generateRandomString(mt_rand(5, Record\Document::LENGTH)),
        ];

        $variables = [];

        // Generate random variables

        $count = 1; //mt_rand(1, 20);
        for ($i = 0; $i < $count; $i++) {
            $var = $this->generateVariable([
                    'id' => $this->generateRandomString(mt_rand(2, 100)),
                    'casesCount' => $header['casesCount'],
                ]
            );
            $header['nominalCaseSize'] += $var->getOcts();
            $variables[] = $var;
        }


        yield [[

The expression yield array(array('header' => $header, 'variables' => $variables, 'documents' => $documents)) returns the type Generator which is incompatible with the documented return type array.

            'header' => $header,
            'variables' => $variables,
            'documents' => $documents
        ]];

        $header['casesCount'] = 5;
        for($i = 0; $i < 1000; $i++) {
            $variable = $this->generateVariable([
                'id' => $this->generateRandomString(mt_rand(2, 100)),
                'casesCount' => $header['casesCount']
            ]);
            $header['nominalCaseSize'] = $variable->getOcts();
            yield [[
                'header' => $header,
                'variables' => [$variable],
                'documents' => $documents
            ]];
        }
    }

    /**
     * @dataProvider provider
     * @param array $data
     * @throws \Exception
     */
    public function testWriteRead($data)
    {
        $writer = new Writer($data);

        $buffer = $writer->getBuffer();
        $buffer->rewind();

        $reader = Reader::fromString($buffer->getStream())->read();

$buffer->getStream() of type resource is incompatible with the type string expected by parameter $str of SPSS\Sav\Reader::fromString().

        $this->checkHeader($data['header'], $reader);

        if ($data['documents']) {
            foreach ($data['documents'] as $key => $doc) {
                $this->assertEquals($doc, $reader->documents[$key], 'Invalid document line.');
            }
        }

        $index = 0;
        if (isset($reader->info[Record\Info\VeryLongString::SUBTYPE])) {
            $veryLongStrings = $reader->info[Record\Info\VeryLongString::SUBTYPE]->toArray();
        } else {
            $veryLongStrings = [];
        }
        foreach ($data['variables'] as $var) {
            /** @var Record\Variable $readVariable */
            $readVariable = $reader->variables[$index];


            $this->assertEquals($var->label, $readVariable->label);
            $this->assertEquals($var->format, $readVariable->print[1]);
            $this->assertEquals($var->decimals, $readVariable->print[3]);

            // Check variable data
            foreach ($var->data as $case => $value) {
                $this->assertEquals($value, $reader->data[$case][$index]);
            }

            if (isset($veryLongStrings[$readVariable->name])) {
                $index += Utils::widthToSegments($veryLongStrings[$readVariable->name]) - 1;
            }
            $index++;
        }

        // TODO: valueLabels
        // TODO: info
    }

}