// Copyright (c) 2010 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of the License "Eclipse Public License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.eclipse.org/legal/epl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
// e32test\dll\t_nestedload.cpp
// Overview:
// Test that nested loading of DLLs does not cause incorrect constructor calls
// API Information:
// n/a
// Details:
// Platforms/Drives/Compatibility:
// All.
// Assumptions/Requirement/Pre-requisites:
// Failures and causes:
// Base Port information:
// 
//

/*

This EXE links to and dynamically loads seven DLLs, t_nestdll1-7.dll.
The diagram below shows the structure of the linkage. Regular arrows
are normal static linkage, arrows marked with DY are dynamic loads with
RLibrary::Load.

 +-----+      +---+      +---+
 | EXE |----->| 1 |--DY->| 3 |
 +-----+      +---+      +---+\
    | \                        \  EXE and 3 both link to 2
    D  \                        \    +---+
    Y   +------------------------+-->| 2 |
    |                                +---+
    v
  +---+
  | 5 |
  +---+\
    |   \
    D    \
    Y     \
    |      \
    v       \
  +---+      \
  | 6 |       \
  +---+        \
    |           \
    D            \
    Y             \
    |              \
    v               \   5 and 7 both link to 4
  +---+              \    +---+
  | 7 |---------------+-->| 4 |
  +---+                   +---+

The result should be that the constructors are called in order from 1 to 7,
with no constructor being called more than once or omitted.

*/

#define __E32TEST_EXTENSION__

#include <e32test.h>
#include <e32svr.h>

IMPORT_C TInt DataForDLL1();
IMPORT_C TInt DataForDLL2();

TInt E32Main()
	{
	RTest test(_L("T_NESTEDLOAD"));
	test.Title();

	test.Start(_L("Test nested loading"));

	test.Next(_L("Dummy calls to static dependencies"));
	DataForDLL1();
	DataForDLL2();

	test.Next(_L("Load library triggering nested load"));
	RLibrary lib;
	test_KErrNone(lib.Load(_L("t_nestdll5.dll")));

	test.Next(_L("Retrieve load order array"));
	TInt* loadOrder = (TInt*)UserSvr::DllTls(0);
	test_NotNull(loadOrder);

	test.Next(_L("Load order:"));
	TInt i;
	for (i = 0; i < 100; ++i)
		{
		if (loadOrder[i] == 0)
			break;
		test.Printf(_L("%d "), loadOrder[i]);
		}
	test.Printf(_L("\n"));

	// We expect DLLs 1-7 to be loaded in numerical order, with no repeats.
	for (i = 0; i < 7; ++i)
		test_Equal(i+1, loadOrder[i]);
	test_Equal(0, loadOrder[7]);

	test.End();
	return(KErrNone);
	}