/* BasicPipe(Test) - checking the basic properties of Pipe Assets Copyright (C) Lumiera.org 2008, Hermann Vosseler This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * *****************************************************/ #include "include/logging.h" #include "lib/test/run.hpp" #include "lib/util.hpp" #include "proc/asset/category.hpp" #include "proc/asset/pipe.hpp" #include "proc/assetmanager.hpp" #include "proc/mobject/session.hpp" #include "proc/asset/asset-diagnostics.hpp" #include "lib/query-util.hpp" #include "common/query.hpp" #include #include using boost::format; using util::contains; using util::isnil; using std::string; using std::cout; namespace proc { namespace asset { namespace test { using mobject::Session; using lumiera::Query; using lib::query::normaliseID; /*********************************************************************** * @test basic properties of Pipe (structural) Assets. *
  • created by referral
    • *
  • access existing pipe by referral
    • *
  • create with full properties
    • *
  • access ProcPatt
    • *
  • check dependency
    • *
*/ class BasicPipe_test : public Test { virtual void run(Arg arg) { string pipeID = isnil(arg)? "Black Hole" : arg[1]; string streamID = 2>arg.size()? "teststream" : arg[2] ; createExplicit (pipeID,streamID); create_or_ref (pipeID); create_using_default (); dependProcPatt (pipeID); } void createExplicit (string pID, string sID) { string pID_sane (pID); normaliseID (pID_sane); CHECK (pID_sane != pID); PPipe thePipe = asset::Struct::retrieve.newPipe (pID,sID); CHECK (thePipe); CHECK (thePipe->getProcPatt()); CHECK (thePipe->getPipeID() == pID_sane); CHECK (thePipe->getStreamID() == StreamType::ID(sID)); CHECK (thePipe->shortDesc == pID_sane); Asset::Ident idi = thePipe->ident; CHECK (idi.org == "lumi"); CHECK (contains (idi.name, thePipe->getPipeID())); CHECK (contains (idi.name, thePipe->getStreamID())); Category cat (idi.category); Category refcat (STRUCT,"pipes"); CHECK ( cat.hasKind(STRUCT) ); CHECK ( cat.isWithin(refcat) ); } void create_or_ref(string pID) { normaliseID (pID); PPipe pipe1 = Pipe::query ("pipe("+pID+")"); CHECK (pipe1); CHECK (pipe1->getPipeID() == pID); string pID2 = "another-" + pID; PPipe pipe2 = Pipe::query ("pipe("+pID2+")"); CHECK (pipe2); CHECK (pipe2 != pipe1); Category c1 = pipe1->ident.category; Category c2 = pipe2->ident.category; CHECK (c1 == c2); PPipe pipe3 = Pipe::query ("pipe("+pID2+")"); //////////////////////////////////////////////////////////////TODO: that's broken; creating a new one instead to find the existing one, as it should be CHECK (pipe3 == pipe2); } void create_using_default() { PPipe pipe1 = Pipe::query (""); // "the default pipe" PPipe pipe2; CHECK (pipe1); CHECK (pipe1 == Session::current->defaults (Query())); CHECK (pipe1->ident.category.hasKind(VIDEO)); CHECK (pipe1->getProcPatt()); PProcPatt propa = Session::current->defaults (Query("pipe(default)")); CHECK (propa == pipe1->getProcPatt()); // several variants to query for "the default pipe" pipe2 = Session::current->defaults(Query ()); CHECK (pipe2 == pipe1); pipe2 = asset::Struct::retrieve (Query ()); CHECK (pipe2 == pipe1); pipe2 = asset::Struct::retrieve (Query ("pipe(default)")); CHECK (pipe2 == pipe1); string sID = pipe1->getStreamID(); // sort of a "default stream type" PPipe pipe3 = Pipe::query ("stream("+sID+")"); CHECK (pipe3); CHECK (pipe3->getStreamID() == StreamType::ID(sID)); CHECK (pipe3->getProcPatt() == Session::current->defaults (Query("stream("+sID+")"))); } void dependProcPatt(string pID) { typedef P PPipe; /////TODO: transition to P<> typedef P PProcPatt; PPipe thePipe = Pipe::query ("pipe("+pID+")"); CHECK (thePipe); PProcPatt thePatt = thePipe->getProcPatt(); CHECK (thePatt); CHECK (dependencyCheck (thePipe, thePatt)); PProcPatt pattern2 = thePatt->newCopy("another"); CHECK (thePatt != pattern2); CHECK (!dependencyCheck (thePipe, pattern2)); TODO ("add something to the new pattern, e.g. an effect"); // now querying for a pipe using this pattern (created on-the-fly) // note: because the pattern is new, this new pipe will be used as // default pipe for this pattern automatically PPipe pipe2x = Pipe::query ("pattern(another)"); CHECK (pattern2 == pipe2x->getProcPatt()); CHECK (pipe2x == Session::current->defaults (Query("pattern(another)"))); thePipe->switchProcPatt(pattern2); CHECK ( dependencyCheck (thePipe, pattern2)); CHECK (!dependencyCheck (thePipe, thePatt)); AssetManager& aMang = AssetManager::instance(); CHECK ( aMang.known (thePipe->getID())); CHECK ( aMang.known (thePatt->getID())); CHECK ( aMang.known (pattern2->getID())); aMang.remove (pattern2->getID()); CHECK ( aMang.known (thePatt->getID())); CHECK (!aMang.known (pattern2->getID())); CHECK (!aMang.known (thePipe->getID())); // has been unlinked too, because dependant on pattern2 CHECK (thePipe); PProcPatt pattern3 = thePipe->getProcPatt(); /////TODO: transition to P<> CHECK (thePipe->getProcPatt()); CHECK ( pattern3 == pattern2); // but is still valid, as long as the ref is alive.... PPipe pipe3x = Pipe::query ("pattern(another)"); pattern3 = pipe3x->getProcPatt(); /////TODO: transition to P<> CHECK (pattern3 != pattern2); // because pattern2 is already unlinked... CHECK (pipe3x == Session::current->defaults (Query("pattern(another)"))); CHECK (pipe3x != pipe2x); // ..we got a new default pipe for "pattern(another)" too! TRACE (asset_mem, "leaving BasicPipe_test::dependProcPatt()"); // expect now pipe2x and pattern2 to be destroyed... } }; /** Register this test class... */ LAUNCHER (BasicPipe_test, "unit asset"); }}} // namespace proc::asset::test