RedUNIT\Base\Bean::testWhetherWeCanAddToLists PHP Method

    public function testWhetherWeCanAddToLists()
    {
        $book = $this->_createBook();
        $book->ownPage[] = R::dispense('page');
        R::store($book);
        asrt(R::count('page'), 3);
        $book = $this->_createBook();
        $book->ownPageList[] = R::dispense('page');
        R::store($book);
        asrt(R::count('page'), 3);
        $book = $this->_createBook();
        $book->xownPage[] = R::dispense('page');
        R::store($book);
        asrt(R::count('page'), 3);
        $book = $this->_createBook();
        $book->xownPageList[] = R::dispense('page');
        R::store($book);
        asrt(R::count('page'), 3);
        $ads = R::dispense('ad', 3);
        $book = $this->_createBook();
        $book->alias('magazine')->ownAd = $ads;
        $book->ownPage[] = R::dispense('page');
        R::store($book);
        asrt(R::count('ad'), 6);
        asrt(R::count('page'), 3);
        $ads = R::dispense('ad', 3);
        $book = $this->_createBook();
        $book->alias('magazine')->ownAdList = $ads;
        $book->ownPageList[] = R::dispense('page');
        R::store($book);
        asrt(R::count('ad'), 6);
        asrt(R::count('page'), 3);
        $ads = R::dispense('ad', 3);
        $book = $this->_createBook();
        $book->alias('magazine')->xownAd = $ads;
        $book->xownPage[] = R::dispense('page');
        R::store($book);
        asrt(R::count('ad'), 3);
        asrt(R::count('page'), 3);
        $ads = R::dispense('ad', 3);
        $book = $this->_createBook();
        $book->alias('magazine')->xownAdList = $ads;
        $book->xownPageList[] = R::dispense('page');
        R::store($book);
        asrt(R::count('ad'), 3);
        asrt(R::count('page'), 3);
        $book = $this->_createBook();
        $book->sharedTag[] = R::dispense('tag');
        R::store($book);
        asrt(R::count('tag'), 3);
        $book = $this->_createBook();
        $book->sharedTagList[] = R::dispense('tag');
        R::store($book);
        asrt(R::count('tag'), 3);
    }