diff options
Diffstat (limited to 'testautomation/framework/optional/includes/basic_vba-compat_application-union.inc')
| -rwxr-xr-x | testautomation/framework/optional/includes/basic_vba-compat_application-union.inc | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/basic_vba-compat_application-union.inc b/testautomation/framework/optional/includes/basic_vba-compat_application-union.inc index 222b99215f81..d9f421278514 100755 --- a/testautomation/framework/optional/includes/basic_vba-compat_application-union.inc +++ b/testautomation/framework/optional/includes/basic_vba-compat_application-union.inc @@ -46,12 +46,25 @@ testcase tBasicVBACompatApplicationUnion() const RC_FAILURE = -1 dim macro_identifier( EXPECTED_MACRO_COUNT ) + + ' Find out whether we can write to the program directory or not. + ' If we can we get different values returned from the test functions + ' This is required for userland installations. + if( hCheckForAdministratorPermissions() ) then + macro_identifier( 1 ) = "1: False" + macro_identifier( 2 ) = "2: False" + macro_identifier( 3 ) = "3: False" + macro_identifier( 4 ) = "4: True" + macro_identifier( 5 ) = "5: False" + macro_identifier( 6 ) = "6: True" + else macro_identifier( 1 ) = "1: True" macro_identifier( 2 ) = "2: True" macro_identifier( 3 ) = "3: True" macro_identifier( 4 ) = "4: True" macro_identifier( 5 ) = "5: True" macro_identifier( 6 ) = "6: True" + endif dim cTestFile as string cTestFile = gTesttoolPath & "framework/optional/input/vba-compat/" & DOCUMENT_NAME |