lang::test::setup_test_package (private)

 lang::test::setup_test_package

Defined in packages/acs-lang/tcl/test/acs-lang-test-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 test_upgrade upgrade (test acs-lang) lang::test::setup_test_package lang::test::setup_test_package test_upgrade->lang::test::setup_test_package aa_true aa_true (public) lang::test::setup_test_package->aa_true apm_enabled_packages apm_enabled_packages (public) lang::test::setup_test_package->apm_enabled_packages apm_package_info_file_path apm_package_info_file_path (public) lang::test::setup_test_package->apm_package_info_file_path apm_package_install apm_package_install (public) lang::test::setup_test_package->apm_package_install lang::test::test_package_key lang::test::test_package_key (private) lang::test::setup_test_package->lang::test::test_package_key

Testcases:
upgrade
Source code:
    set package_key [test_package_key]
    set package_name "acs-lang temporary test package"
    set package_dir [file join $::acs::rootdir packages $package_key]
    file mkdir $package_dir

    set info_file_path "${package_dir}/${package_key}.info"
    set info_file_contents "<?xml version=\"1.0\"?>
<package key=\"$package_key\" url=\"http://www.openacs.org/acs-repository/apm/packages/$package_key\" type=\"apm_service\">
    <package-name>$package_name</package-name>
    <pretty-plural>$package_name</pretty-plural>
    <initial-install-p>f</initial-install-p>
    <singleton-p>f</singleton-p>

    <version name=\"1.0\" url=\"http://www.openacs.org/acs-repository/download/apm/$package_key-1.0.apm\">
        <owner url=\"mailto:peter@collaboraid.biz\">Peter Marklund</owner>
        <summary>Temporary acs-lang test package</summary>
        <release-date>2003-11-07</release-date>
        <vendor url=\"http://www.collaboraid.biz\">Collaboraid</vendor>
        <description format=\"text/plain\">Temporary test package created by acs-lang test case.</description>
    </version>
</package>
"
    template::util::write_file $info_file_path $info_file_contents

    # Install the test package without catalog files
    apm_package_install  -enable  [apm_package_info_file_path $package_key]
    aa_true "Package install: package enabled"  {$package_key in [apm_enabled_packages]}
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: