Ichthyostega
1c8cddba84
this was introduced into namespace mobject and spread from there. Since the habit is to use more specific typedefs like PClip, it is preferrable to spell out the full namespace
213 lines
7.9 KiB
C++
213 lines
7.9 KiB
C++
/*
|
|
BasicPipe(Test) - checking the basic properties of Pipe Assets
|
|
|
|
Copyright (C) Lumiera.org
|
|
2008, Hermann Vosseler <Ichthyostega@web.de>
|
|
|
|
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 <iostream>
|
|
|
|
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.
|
|
* <ul><li>created by referral</li>
|
|
* <li>access existing pipe by referral</li>
|
|
* <li>create with full properties</li>
|
|
* <li>access ProcPatt</li>
|
|
* <li>check dependency</li>
|
|
* </ul>
|
|
*/
|
|
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<Pipe>()));
|
|
CHECK (pipe1->ident.category.hasKind(VIDEO));
|
|
CHECK (pipe1->getProcPatt());
|
|
PProcPatt propa = Session::current->defaults (Query<const ProcPatt>("pipe(default)"));
|
|
CHECK (propa == pipe1->getProcPatt());
|
|
|
|
// several variants to query for "the default pipe"
|
|
pipe2 = Session::current->defaults(Query<Pipe> ());
|
|
CHECK (pipe2 == pipe1);
|
|
pipe2 = asset::Struct::retrieve (Query<Pipe> ());
|
|
CHECK (pipe2 == pipe1);
|
|
pipe2 = asset::Struct::retrieve (Query<Pipe> ("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<const ProcPatt>("stream("+sID+")")));
|
|
}
|
|
|
|
|
|
void dependProcPatt(string pID)
|
|
{
|
|
typedef lib::P<Pipe> PPipe; /////TODO: transition to P<>
|
|
typedef lib::P<const ProcPatt> 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<Pipe>("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 dependent 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<Pipe>("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
|