Ichthyostega
24b3bec4be
Doxygen will only process files with a @file documentation comment. Up to now, none of our test code has such a comment, preventing the cross-links to unit tests from working. This is unfortunate, since unit tests, and even the code comments there, can be considered as the most useful form of technical documentation. Thus I'll start an initiative to fill in those missing comments automatically
215 lines
7.9 KiB
C++
215 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.
|
|
|
|
* *****************************************************/
|
|
|
|
/** @file basicpipetest.cpp
|
|
** unit test §§TODO§§
|
|
*/
|
|
|
|
|
|
#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"
|
|
|
|
|
|
using util::contains;
|
|
using util::isnil;
|
|
using std::string;
|
|
|
|
|
|
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
|