RedUNIT\Blackhole\Tainted::testTainted PHP Method

    public function testTainted()
    {
        testpack('Original Tainted Tests');
        $redbean = R::getRedBean();
        $spoon = $redbean->dispense("spoon");
        asrt($spoon->getMeta("tainted"), TRUE);
        $spoon->dirty = "yes";
        asrt($spoon->getMeta("tainted"), TRUE);
        testpack('Tainted List test');
        $note = R::dispense('note');
        $note->text = 'abc';
        $note->ownNote[] = R::dispense('note')->setAttr('text', 'def');
        $id = R::store($note);
        $note = R::load('note', $id);
        asrt($note->isTainted(), FALSE);
        // Shouldn't affect tainted
        $note->text;
        asrt($note->isTainted(), FALSE);
        $note->ownNote;
        asrt($note->isTainted(), TRUE);
        testpack('Tainted Test Old Value');
        $text = $note->old('text');
        asrt($text, 'abc');
        asrt($note->hasChanged('text'), FALSE);
        $note->text = 'xxx';
        asrt($note->hasChanged('text'), TRUE);
        $text = $note->old('text');
        asrt($text, 'abc');
        testpack('Tainted Non-exist');
        asrt($note->hasChanged('text2'), FALSE);
        testpack('Misc Tainted Tests');
        $bean = R::dispense('bean');
        $bean->hasChanged('prop');
        $bean->old('prop');
    }