/etc/dotlrn/install/dotlrn-basic-setup.test is in dotlrn 2.5.0+dfsg-6+wheezy4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76  | if { [catch {
    source tcl/test-procs.tcl
    # Test Execution START
        
    ::twt::log_section "Login the site wide admin"
    ::twt::user::login_site_wide_admin
    
    ::twt::log_section "Add the site wide admin to dotLRN"
    ::twt::dotlrn::add_site_wide_admin $server_url
    ::twt::log_section "Load I18N Messages and enter German locale"
    ::twt::acs_lang::load_i18n_messages    
    ::twt::acs_lang::set_locale de_DE
    
    ::twt::log_section "Upload users"
    ::twt::user::upload_users $server_url
    ::twt::log_section "Set up terms"
    ::twt::dotlrn::setup_terms $server_url
    
    ::twt::log_section "Set up departments"
    ::twt::dotlrn::setup_departments $server_url
    
    ::twt::log_section "Set up subjects"
    ::twt::dotlrn::setup_subjects $server_url
    
    ::twt::log_section "Set up classes"
    ::twt::dotlrn::setup_classes $server_url
    
    ::twt::log_section "Set up communities (i.e. Tennis Club etc.)"
    ::twt::dotlrn::setup_communities $server_url    
    
    ::twt::log_section "Add class members, i.e. professors, students and assistants"
    ::twt::class::setup_memberships $server_url
    
    ::twt::log_section "Add class subgroups"
    ::twt::class::setup_subgroups $server_url
    
    ::twt::log_section "Add class member applet"    
    ::twt::class::add_member_applets $server_url
    
    ::twt::log_section "Set up class forums - one per class"
    ::twt::forums::add_default_forums $server_url
    
    ::twt::log_section "Add forum postings"
    ::twt::forums::add_postings 
    
    ::twt::log_section "Add news items - one per class"
    ::twt::news::add_item_to_classes $server_url
    set student_email [::twt::user::get_random_users student 1]
    ::twt::log_section "Login as student $student_email"
    ::twt::user::login $student_email
    ::twt::log_section "Test customize layout page"
    ::twt::new_portal::test::customize_layout        
    ::twt::log_section "Test the manage memberships page"
    ::twt::dotlrn::test::manage_my_memberships
    #::twt::user::login_site_wide_admin            
    # Test Execution END
} result] } {
    global errorInfo
    # Output error stack trace and HTML response body
    ::twt::log $result
    ::twt::log "*** Tcl TRACE ***"
    ::twt::log $errorInfo
    ::twt::log "The response body is: [response body]"
    error "Test failed: $result"
}
 |