2 * Tests for WIDL and RPC server/clients.
4 * Copyright (C) Google 2007 (Dan Hipschman)
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
28 #include "wine/test.h"
30 #include "server_defines.h"
37 #define PIPE "\\pipe\\wine_rpcrt4_test"
41 static const char *progname
;
42 static BOOL old_windows_version
;
44 static HANDLE stop_event
, stop_wait_event
;
46 static void (WINAPI
*pNDRSContextMarshall2
)(RPC_BINDING_HANDLE
, NDR_SCONTEXT
, void*, NDR_RUNDOWN
, void*, ULONG
);
47 static NDR_SCONTEXT (WINAPI
*pNDRSContextUnmarshall2
)(RPC_BINDING_HANDLE
, void*, ULONG
, void*, ULONG
);
48 static RPC_STATUS (WINAPI
*pRpcServerRegisterIfEx
)(RPC_IF_HANDLE
,UUID
*, RPC_MGR_EPV
*, unsigned int,
49 unsigned int,RPC_IF_CALLBACK_FN
*);
50 static RPC_STATUS (WINAPI
*pRpcBindingSetAuthInfoExA
)(RPC_BINDING_HANDLE
, RPC_CSTR
, ULONG
, ULONG
,
51 RPC_AUTH_IDENTITY_HANDLE
, ULONG
, RPC_SECURITY_QOS
*);
52 static RPC_STATUS (WINAPI
*pRpcServerRegisterAuthInfoA
)(RPC_CSTR
, ULONG
, RPC_AUTH_KEY_RETRIEVAL_FN
, LPVOID
);
54 static char *domain_and_user
;
56 /* type check statements generated in header file */
57 fnprintf
*p_printf
= printf
;
59 static const WCHAR helloW
[] = { 'H','e','l','l','o',0 };
60 static const WCHAR worldW
[] = { 'W','o','r','l','d','!',0 };
62 static void InitFunctionPointers(void)
64 HMODULE hrpcrt4
= GetModuleHandleA("rpcrt4.dll");
66 pNDRSContextMarshall2
= (void *)GetProcAddress(hrpcrt4
, "NDRSContextMarshall2");
67 pNDRSContextUnmarshall2
= (void *)GetProcAddress(hrpcrt4
, "NDRSContextUnmarshall2");
68 pRpcServerRegisterIfEx
= (void *)GetProcAddress(hrpcrt4
, "RpcServerRegisterIfEx");
69 pRpcBindingSetAuthInfoExA
= (void *)GetProcAddress(hrpcrt4
, "RpcBindingSetAuthInfoExA");
70 pRpcServerRegisterAuthInfoA
= (void *)GetProcAddress(hrpcrt4
, "RpcServerRegisterAuthInfoA");
72 if (!pNDRSContextMarshall2
) old_windows_version
= TRUE
;
75 void __RPC_FAR
*__RPC_USER
76 midl_user_allocate(SIZE_T n
)
78 return HeapAlloc(GetProcessHeap(), 0, n
);
82 midl_user_free(void __RPC_FAR
*p
)
84 HeapFree(GetProcessHeap(), 0, p
);
88 xstrdup(const char *s
)
90 char *d
= HeapAlloc(GetProcessHeap(), 0, strlen(s
) + 1);
95 int __cdecl
s_int_return(void)
100 int __cdecl
s_square(int x
)
105 int __cdecl
s_sum(int x
, int y
)
110 signed char __cdecl
s_sum_char(signed char x
, signed char y
)
115 short __cdecl
s_sum_short(short x
, short y
)
120 int __cdecl
s_sum_float(float x
, float y
)
125 int __cdecl
s_sum_double_int(int x
, double y
)
130 hyper __cdecl
s_sum_hyper(hyper x
, hyper y
)
135 int __cdecl
s_sum_hyper_int(hyper x
, hyper y
)
140 int __cdecl
s_sum_char_hyper(signed char x
, hyper y
)
145 void __cdecl
s_square_out(int x
, int *y
)
150 void __cdecl
s_square_ref(int *x
)
155 int __cdecl
s_str_length(const char *s
)
160 int __cdecl
s_str_t_length(str_t s
)
165 int __cdecl
s_cstr_length(const char *s
, int n
)
168 while (0 < n
-- && *s
++)
173 int __cdecl
s_dot_self(vector_t
*v
)
175 return s_square(v
->x
) + s_square(v
->y
) + s_square(v
->z
);
178 double __cdecl
s_square_half(double x
, double *y
)
184 float __cdecl
s_square_half_float(float x
, float *y
)
190 LONG __cdecl
s_square_half_long(LONG x
, LONG
*y
)
196 int __cdecl
s_sum_fixed_array(int a
[5])
198 return a
[0] + a
[1] + a
[2] + a
[3] + a
[4];
201 int __cdecl
s_pints_sum(pints_t
*pints
)
203 return *pints
->pi
+ **pints
->ppi
+ ***pints
->pppi
;
206 double __cdecl
s_ptypes_sum(ptypes_t
*pt
)
208 return *pt
->pc
+ *pt
->ps
+ *pt
->pl
+ *pt
->pf
+ *pt
->pd
;
211 int __cdecl
s_dot_pvectors(pvectors_t
*p
)
213 return p
->pu
->x
* (*p
->pv
)->x
+ p
->pu
->y
* (*p
->pv
)->y
+ p
->pu
->z
* (*p
->pv
)->z
;
216 int __cdecl
s_sum_sp(sp_t
*sp
)
218 return sp
->x
+ sp
->s
->x
;
221 double __cdecl
s_square_sun(sun_t
*su
)
225 case SUN_I
: return su
->u
.i
* su
->u
.i
;
227 case SUN_F2
: return su
->u
.f
* su
->u
.f
;
228 case SUN_PI
: return (*su
->u
.pi
) * (*su
->u
.pi
);
234 int __cdecl
s_test_list_length(test_list_t
*list
)
236 return (list
->t
== TL_LIST
237 ? 1 + s_test_list_length(list
->u
.tail
)
241 int __cdecl
s_sum_fixed_int_3d(int m
[2][3][4])
246 for (i
= 0; i
< 2; ++i
)
247 for (j
= 0; j
< 3; ++j
)
248 for (k
= 0; k
< 4; ++k
)
254 int __cdecl
s_sum_conf_array(int x
[], int n
)
256 int *p
= x
, *end
= p
+ n
;
265 int __cdecl
s_sum_conf_ptr_by_conf_ptr(int n1
, int *n2_then_x1
, int *x2
)
272 for(i
= 1; i
< n1
; ++i
)
273 sum
+= n2_then_x1
[i
];
275 for(i
= 0; i
< *n2_then_x1
; ++i
)
281 int __cdecl
s_sum_unique_conf_array(int x
[], int n
)
283 return s_sum_conf_array(x
, n
);
286 int __cdecl
s_sum_unique_conf_ptr(int *x
, int n
)
288 return x
? s_sum_conf_array(x
, n
) : 0;
291 int __cdecl
s_sum_var_array(int x
[20], int n
)
293 ok(0 <= n
, "RPC sum_var_array\n");
294 ok(n
<= 20, "RPC sum_var_array\n");
296 return s_sum_conf_array(x
, n
);
299 int __cdecl
s_sum_complex_array(int n
, refpint_t pi
[])
307 int __cdecl
s_dot_two_vectors(vector_t vs
[2])
309 return vs
[0].x
* vs
[1].x
+ vs
[0].y
* vs
[1].y
+ vs
[0].z
* vs
[1].z
;
312 void __cdecl
s_get_number_array(int x
[20], int *n
)
314 int c
[] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
315 memcpy(x
, c
, sizeof(c
));
319 int __cdecl
s_sum_cs(cs_t
*cs
)
321 return s_sum_conf_array(cs
->ca
, cs
->n
);
324 int __cdecl
s_sum_cps(cps_t
*cps
)
329 for (i
= 0; i
< *cps
->pn
; ++i
)
332 for (i
= 0; i
< 2 * cps
->n
; ++i
)
338 int __cdecl
s_sum_cpsc(cpsc_t
*cpsc
)
342 for (i
= 0; i
< (cpsc
->c
? cpsc
->a
: cpsc
->b
); ++i
)
347 int __cdecl
s_get_cpsc(int n
, cpsc_t
*cpsc
)
354 cpsc
->ca
= MIDL_user_allocate( cpsc
->a
* sizeof(int) );
355 for (i
= ret
= 0; i
< cpsc
->a
; i
++) cpsc
->ca
[i
] = i
;
356 for (i
= ret
= 0; i
< cpsc
->a
; i
++) ret
+= cpsc
->ca
[i
];
360 int __cdecl
s_square_puint(puint_t p
)
366 int __cdecl
s_sum_puints(puints_t
*p
)
370 for (i
= 0; i
< p
->n
; ++i
)
371 sum
+= atoi(p
->ps
[i
]);
375 int __cdecl
s_sum_cpuints(cpuints_t
*p
)
379 for (i
= 0; i
< p
->n
; ++i
)
380 sum
+= atoi(p
->ps
[i
]);
384 int __cdecl
s_dot_copy_vectors(vector_t u
, vector_t v
)
386 return u
.x
* v
.x
+ u
.y
* v
.y
+ u
.z
* v
.z
;
389 int __cdecl
s_square_test_us(test_us_t
*tus
)
391 int n
= atoi(tus
->us
.x
);
395 double __cdecl
s_square_encu(encu_t
*eu
)
399 case ENCU_I
: return eu
->tagged_union
.i
* eu
->tagged_union
.i
;
400 case ENCU_F
: return eu
->tagged_union
.f
* eu
->tagged_union
.f
;
406 double __cdecl
s_square_unencu(int t
, unencu_t
*eu
)
410 case ENCU_I
: return eu
->i
* eu
->i
;
411 case ENCU_F
: return eu
->f
* eu
->f
;
417 void __cdecl
s_check_se2(se_t
*s
)
419 ok(s
->f
== E2
, "check_se2\n");
422 int __cdecl
s_sum_parr(int *a
[3])
424 return s_sum_pcarr(a
, 3);
427 int __cdecl
s_sum_pcarr(int *a
[], int n
)
430 for (i
= 0; i
< n
; ++i
)
435 int __cdecl
s_enum_ord(e_t e
)
448 double __cdecl
s_square_encue(encue_t
*eue
)
452 case E1
: return eue
->tagged_union
.i1
* eue
->tagged_union
.i1
;
453 case E2
: return eue
->tagged_union
.f2
* eue
->tagged_union
.f2
;
459 int __cdecl
s_sum_toplev_conf_2n(int *x
, int n
)
463 for (i
= 0; i
< 2 * n
; ++i
)
468 int __cdecl
s_sum_toplev_conf_cond(int *x
, int a
, int b
, int c
)
473 for (i
= 0; i
< n
; ++i
)
478 double __cdecl
s_sum_aligns(aligns_t
*a
)
480 return a
->c
+ a
->i
+ a
->s
+ a
->d
;
483 int __cdecl
s_sum_padded(padded_t
*p
)
488 int __cdecl
s_sum_padded2(padded_t ps
[2])
490 return s_sum_padded(&ps
[0]) + s_sum_padded(&ps
[1]);
493 int __cdecl
s_sum_padded_conf(padded_t
*ps
, int n
)
497 for (i
= 0; i
< n
; ++i
)
498 sum
+= s_sum_padded(&ps
[i
]);
502 int __cdecl
s_sum_bogus(bogus_t
*b
)
504 return *b
->h
.p1
+ *b
->p2
+ *b
->p3
+ b
->c
;
507 void __cdecl
s_check_null(int *null
)
509 ok(!null
, "RPC check_null\n");
512 int __cdecl
s_str_struct_len(str_struct_t
*s
)
514 return lstrlenA(s
->s
);
517 int __cdecl
s_wstr_struct_len(wstr_struct_t
*s
)
519 return lstrlenW(s
->s
);
522 int __cdecl
s_sum_doub_carr(doub_carr_t
*dc
)
526 for (i
= 0; i
< dc
->n
; ++i
)
527 for (j
= 0; j
< dc
->a
[i
]->n
; ++j
)
528 sum
+= dc
->a
[i
]->a
[j
];
532 void __cdecl
s_make_pyramid_doub_carr(unsigned char n
, doub_carr_t
**dc
)
536 t
= MIDL_user_allocate(FIELD_OFFSET(doub_carr_t
, a
[n
]));
538 for (i
= 0; i
< n
; ++i
)
541 t
->a
[i
] = MIDL_user_allocate(FIELD_OFFSET(doub_carr_1_t
, a
[v
]));
543 for (j
= 0; j
< v
; ++j
)
544 t
->a
[i
]->a
[j
] = j
+ 1;
549 unsigned __cdecl
s_hash_bstr(bstr_t b
)
555 for (i
= 0; i
< n
; ++i
)
556 hash
= 5 * hash
+ (unsigned) s
[i
];
560 void __cdecl
s_get_a_bstr(bstr_t
*b
)
563 short str
[] = {5, 'W', 'i', 'n', 'e', 0};
564 bstr
= HeapAlloc(GetProcessHeap(), 0, sizeof(str
));
565 memcpy(bstr
, str
, sizeof(str
));
569 void __cdecl
s_get_name(name_t
*name
)
571 const char bossman
[] = "Jeremy White";
572 memcpy(name
->name
, bossman
, min(name
->size
, sizeof(bossman
)));
573 /* ensure nul-termination */
574 if (name
->size
< sizeof(bossman
))
575 name
->name
[name
->size
- 1] = 0;
578 void __cdecl
s_get_names(int *n
, str_array_t
*names
)
582 list
= MIDL_user_allocate(2 * sizeof(list
[0]));
583 list
[0] = MIDL_user_allocate(6);
584 strcpy(list
[0], "Hello");
585 list
[1] = MIDL_user_allocate(7);
586 strcpy(list
[1], "World!");
592 void __cdecl
s_get_namesw(int *n
, wstr_array_t
*names
)
596 list
= MIDL_user_allocate(2 * sizeof(list
[0]));
597 list
[0] = MIDL_user_allocate(sizeof(helloW
));
598 lstrcpyW(list
[0], helloW
);
599 list
[1] = MIDL_user_allocate(sizeof(worldW
));
600 lstrcpyW(list
[1], worldW
);
606 int __cdecl
s_sum_pcarr2(int n
, int **pa
)
608 return s_sum_conf_array(*pa
, n
);
611 int __cdecl
s_sum_L1_norms(int n
, vector_t
*vs
)
615 for (i
= 0; i
< n
; ++i
)
616 sum
+= abs(vs
[i
].x
) + abs(vs
[i
].y
) + abs(vs
[i
].z
);
620 s123_t
* __cdecl
s_get_s123(void)
622 s123_t
*s
= MIDL_user_allocate(sizeof *s
);
629 str_t __cdecl
s_get_filename(void)
631 return (char *)__FILE__
;
634 int __cdecl
s_echo_ranged_int(int i
, int j
, int k
)
636 return min( 100, i
+ j
+ k
);
639 int __cdecl
s_echo_ranged_int2(int i
)
644 void __cdecl
s_get_ranged_enum(renum_t
*re
)
649 void __cdecl
s_context_handle_test(void)
652 RPC_BINDING_HANDLE binding
;
654 unsigned char buf
[20];
655 static RPC_SERVER_INTERFACE server_if
=
657 sizeof(RPC_SERVER_INTERFACE
),
658 {{0x00000000,0x4114,0x0704,{0x23,0x01,0x00,0x00,0x00,0x00,0x00,0x00}},{1,0}},
659 {{0x8a885d04,0x1ceb,0x11c9,{0x9f,0xe8,0x08,0x00,0x2b,0x10,0x48,0x60}},{2,0}},
668 binding
= I_RpcGetCurrentCallHandle();
669 ok(binding
!= NULL
, "I_RpcGetCurrentCallHandle returned NULL\n");
671 if (!pNDRSContextMarshall2
|| !pNDRSContextUnmarshall2
)
673 win_skip("NDRSContextMarshall2 or NDRSContextUnmarshall2 not exported from rpcrt4.dll\n");
677 h
= pNDRSContextUnmarshall2(binding
, NULL
, NDR_LOCAL_DATA_REPRESENTATION
, NULL
, 0);
678 ok(h
!= NULL
, "NDRSContextUnmarshall2 returned NULL\n");
680 /* marshal a context handle with NULL userContext */
681 memset(buf
, 0xcc, sizeof(buf
));
682 pNDRSContextMarshall2(binding
, h
, buf
, NULL
, NULL
, 0);
683 ok(*(ULONG
*)buf
== 0, "attributes should have been set to 0 instead of 0x%x\n", *(ULONG
*)buf
);
684 ok(UuidIsNil((UUID
*)&buf
[4], &status
), "uuid should have been nil\n");
686 h
= pNDRSContextUnmarshall2(binding
, NULL
, NDR_LOCAL_DATA_REPRESENTATION
, NULL
, 0);
687 ok(h
!= NULL
, "NDRSContextUnmarshall2 returned NULL\n");
689 /* marshal a context handle with non-NULL userContext */
690 memset(buf
, 0xcc, sizeof(buf
));
691 h
->userContext
= (void *)0xdeadbeef;
692 pNDRSContextMarshall2(binding
, h
, buf
, NULL
, NULL
, 0);
693 ok(*(ULONG
*)buf
== 0, "attributes should have been set to 0 instead of 0x%x\n", *(ULONG
*)buf
);
694 ok(!UuidIsNil((UUID
*)&buf
[4], &status
), "uuid should not have been nil\n");
696 /* raises ERROR_INVALID_HANDLE exception on Vista upwards */
699 h
= pNDRSContextUnmarshall2(binding
, buf
, NDR_LOCAL_DATA_REPRESENTATION
, NULL
, 0);
700 ok(h
!= NULL
, "NDRSContextUnmarshall2 returned NULL\n");
701 ok(h
->userContext
== (void *)0xdeadbeef, "userContext of interface didn't unmarshal properly: %p\n", h
->userContext
);
703 /* marshal a context handle with an interface specified */
704 h
= pNDRSContextUnmarshall2(binding
, NULL
, NDR_LOCAL_DATA_REPRESENTATION
, &server_if
.InterfaceId
, 0);
705 ok(h
!= NULL
, "NDRSContextUnmarshall2 returned NULL\n");
707 memset(buf
, 0xcc, sizeof(buf
));
708 h
->userContext
= (void *)0xcafebabe;
709 pNDRSContextMarshall2(binding
, h
, buf
, NULL
, &server_if
.InterfaceId
, 0);
710 ok(*(ULONG
*)buf
== 0, "attributes should have been set to 0 instead of 0x%x\n", *(ULONG
*)buf
);
711 ok(!UuidIsNil((UUID
*)&buf
[4], &status
), "uuid should not have been nil\n");
713 h
= pNDRSContextUnmarshall2(binding
, buf
, NDR_LOCAL_DATA_REPRESENTATION
, &server_if
.InterfaceId
, 0);
714 ok(h
!= NULL
, "NDRSContextUnmarshall2 returned NULL\n");
715 ok(h
->userContext
== (void *)0xcafebabe, "userContext of interface didn't unmarshal properly: %p\n", h
->userContext
);
718 /* test same interface data, but different pointer */
719 /* raises ERROR_INVALID_HANDLE exception */
722 RPC_SERVER_INTERFACE server_if_clone
= server_if
;
724 pNDRSContextUnmarshall2(binding
, buf
, NDR_LOCAL_DATA_REPRESENTATION
, &server_if_clone
.InterfaceId
, 0);
727 /* test different interface data, but different pointer */
728 /* raises ERROR_INVALID_HANDLE exception */
731 static RPC_SERVER_INTERFACE server_if2
=
733 sizeof(RPC_SERVER_INTERFACE
),
734 {{0x00000000,0x4114,0x0704,{0x23,0x01,0x00,0x00,0x00,0x00,0x00,0x00}},{1,0}},
735 {{0x8a885d04,0x1ceb,0x11c9,{0x9f,0xe8,0x08,0x00,0x2b,0x10,0x48,0x60}},{2,0}},
743 pNDRSContextMarshall2(binding
, h
, buf
, NULL
, &server_if
.InterfaceId
, 0);
745 pNDRSContextUnmarshall2(binding
, buf
, NDR_LOCAL_DATA_REPRESENTATION
, &server_if2
.InterfaceId
, 0);
749 status
= RpcBindingServerFromClient(NULL
, &binding
);
751 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
752 ok(binding
!= NULL
, "binding is NULL\n");
754 if (status
== RPC_S_OK
&& binding
!= NULL
)
756 unsigned char* string_binding
= NULL
;
757 unsigned char* object_uuid
= NULL
;
758 unsigned char* protseq
= NULL
;
759 unsigned char* network_address
= NULL
;
760 unsigned char* endpoint
= NULL
;
761 unsigned char* network_options
= NULL
;
763 status
= RpcBindingToStringBindingA(binding
, &string_binding
);
764 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
765 ok(string_binding
!= NULL
, "string_binding is NULL\n");
767 status
= RpcStringBindingParseA(string_binding
, &object_uuid
, &protseq
, &network_address
, &endpoint
, &network_options
);
768 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
769 ok(protseq
!= NULL
&& *protseq
!= '\0', "protseq is %s\n", protseq
);
770 ok(network_address
!= NULL
&& *network_address
!= '\0', "network_address is %s\n", network_address
);
774 ok(object_uuid
!= NULL
&& *object_uuid
== '\0', "object_uuid is %s\n", object_uuid
);
775 ok(endpoint
!= NULL
&& *endpoint
== '\0', "endpoint is %s\n", endpoint
);
776 ok(network_options
!= NULL
&& *network_options
== '\0', "network_options is %s\n", network_options
);
779 RpcStringFreeA(&string_binding
);
780 RpcStringFreeA(&object_uuid
);
781 RpcStringFreeA(&protseq
);
782 RpcStringFreeA(&network_address
);
783 RpcStringFreeA(&endpoint
);
784 RpcStringFreeA(&network_options
);
785 RpcBindingFree(&binding
);
789 void __cdecl
s_get_numbers(int length
, int size
, pints_t n
[])
792 for (i
= 0; i
< length
; i
++)
794 n
[i
].pi
= midl_user_allocate(sizeof(*n
[i
].pi
));
801 void __cdecl
s_get_numbers_struct(numbers_struct_t
**ns
)
804 *ns
= midl_user_allocate(FIELD_OFFSET(numbers_struct_t
, numbers
[5]));
808 for (i
= 0; i
< (*ns
)->length
; i
++)
810 (*ns
)->numbers
[i
].pi
= NULL
;
811 (*ns
)->numbers
[i
].ppi
= NULL
;
812 (*ns
)->numbers
[i
].pppi
= NULL
;
814 (*ns
)->numbers
[0].pi
= midl_user_allocate(sizeof(*(*ns
)->numbers
[i
].pi
));
815 *(*ns
)->numbers
[0].pi
= 5;
818 void __cdecl
s_full_pointer_test(int *a
, int *b
)
820 ok(*a
== 42, "Expected *a to be 42 instead of %d\n", *a
);
821 ok(*b
== 42, "Expected *b to be 42 instead of %d\n", *a
);
822 ok(a
== b
, "Expected a (%p) to point to the same memory as b (%p)\n", a
, b
);
825 void __cdecl
s_full_pointer_null_test(int *a
, int *b
)
827 ok(*a
== 42, "Expected *a to be 42 instead of %d\n", *a
);
828 ok(b
== NULL
, "Expected b to be NULL instead of %p\n", b
);
831 void __cdecl
s_stop(void)
833 if (!stop_wait_event
)
835 ok(RPC_S_OK
== RpcMgmtStopServerListening(NULL
), "RpcMgmtStopServerListening\n");
836 ok(RPC_S_OK
== RpcServerUnregisterIf(NULL
, NULL
, FALSE
), "RpcServerUnregisterIf\n");
838 ok(SetEvent(stop_event
), "SetEvent\n");
842 ret
= WaitForSingleObject(stop_wait_event
, 10000);
843 ok(WAIT_OBJECT_0
== ret
, "WaitForSingleObject\n");
847 void __cdecl
s_stop_autolisten(void)
850 status
= RpcServerUnregisterIf(NULL
, NULL
, FALSE
);
852 ok(status
== RPC_S_UNKNOWN_MGR_TYPE
, "got %u\n", status
);
855 void __cdecl
s_ip_test(ipu_t
*a
)
860 hr
= IStream_Stat(a
->tagged_union
.stream
, &st
, STATFLAG_NONAME
);
861 ok(hr
== S_OK
, "got %#x\n", hr
);
865 make_cmdline(char buffer
[MAX_PATH
], const char *test
)
867 sprintf(buffer
, "%s server %s", progname
, test
);
871 run_client(const char *test
)
873 char cmdline
[MAX_PATH
];
874 PROCESS_INFORMATION info
;
875 STARTUPINFOA startup
;
877 memset(&startup
, 0, sizeof startup
);
878 startup
.cb
= sizeof startup
;
880 make_cmdline(cmdline
, test
);
881 ok(CreateProcessA(NULL
, cmdline
, NULL
, NULL
, FALSE
, 0L, NULL
, NULL
, &startup
, &info
), "CreateProcess\n");
882 winetest_wait_child_process( info
.hProcess
);
883 ok(CloseHandle(info
.hProcess
), "CloseHandle\n");
884 ok(CloseHandle(info
.hThread
), "CloseHandle\n");
890 char string
[] = "I am a string";
891 WCHAR wstring
[] = {'I',' ','a','m',' ','a',' ','w','s','t','r','i','n','g', 0};
892 int f
[5] = {1, 3, 0, -2, -4};
893 vector_t a
= {1, 3, 7};
894 vector_t vec1
= {4, -2, 1}, vec2
= {-5, 2, 3}, *pvec2
= &vec2
;
895 pvectors_t pvecs
= {&vec1
, &pvec2
};
896 sp_inner_t spi
= {42};
897 sp_t sp
= {-13, &spi
};
904 int i1
, i2
, i3
, *pi2
, *pi3
, **ppi3
;
912 str_struct_t ss
= {string
};
913 wstr_struct_t ws
= {wstring
};
918 ok(int_return() == INT_CODE
, "RPC int_return\n");
920 ok(square(7) == 49, "RPC square\n");
922 ok(x
== 19, "RPC sum got %d\n", x
);
923 c
= sum_char(-23, 50);
924 ok(c
== 27, "RPC sum_char got %d\n", (int)c
);
925 h
= sum_short(1122, -344);
926 ok(h
== 778, "RPC sum_short got %d\n", (int)h
);
927 x
= sum_float(123.45, -32.2);
928 ok(x
== 91, "RPC sum_float got %d\n", x
);
929 x
= sum_double_int(-78, 148.46);
930 ok(x
== 70, "RPC sum_double_int got %d\n", x
);
931 y
= sum_hyper((hyper
)0x12345678 << 16, (hyper
)0x33557799 << 16);
932 ok(y
== (hyper
)0x4589ce11 << 16, "RPC hyper got %s\n", wine_dbgstr_longlong(y
));
933 x
= sum_hyper_int((hyper
)0x24242424 << 16, -((hyper
)0x24241212 << 16));
934 ok(x
== 0x12120000, "RPC hyper_int got 0x%x\n", x
);
935 x
= sum_char_hyper( 12, ((hyper
)0x42424242 << 32) | 0x33334444 );
936 ok(x
== 0x33334450, "RPC char_hyper got 0x%x\n", x
);
940 ok(x
== 121, "RPC square_out\n");
944 ok(x
== 25, "RPC square_ref\n");
946 ok(str_length(string
) == strlen(string
), "RPC str_length\n");
947 ok(str_t_length(string
) == strlen(string
), "RPC str_length\n");
948 ok(dot_self(&a
) == 59, "RPC dot_self\n");
950 ok(str_struct_len(&ss
) == lstrlenA(string
), "RPC str_struct_len\n");
951 ok(wstr_struct_len(&ws
) == lstrlenW(wstring
), "RPC str_struct_len\n");
954 u
= square_half(3.0, &v
);
955 ok(u
== 9.0, "RPC square_half\n");
956 ok(v
== 1.5, "RPC square_half\n");
959 s
= square_half_float(3.0f
, &t
);
960 ok(s
== 9.0f
, "RPC square_half_float\n");
961 ok(t
== 1.5f
, "RPC square_half_float\n");
964 q
= square_half_long(3, &r
);
965 ok(q
== 9, "RPC square_half_long\n");
966 ok(r
== 1, "RPC square_half_long\n");
977 ok(pints_sum(&pints
) == -13, "RPC pints_sum\n");
989 ok(ptypes_sum(&ptypes
) == 33.0, "RPC ptypes_sum\n");
991 ok(dot_pvectors(&pvecs
) == -21, "RPC dot_pvectors\n");
992 ok(dot_copy_vectors(vec1
, vec2
) == -21, "RPC dot_copy_vectors\n");
993 ok(sum_fixed_array(f
) == -2, "RPC sum_fixed_array\n");
994 ok(sum_sp(&sp
) == 29, "RPC sum_sp\n");
996 ok(enum_ord(E1
) == 1, "RPC enum_ord\n");
997 ok(enum_ord(E2
) == 2, "RPC enum_ord\n");
998 ok(enum_ord(E3
) == 3, "RPC enum_ord\n");
999 ok(enum_ord(E4
) == 4, "RPC enum_ord\n");
1004 memset(&aligns
, 0, sizeof(aligns
));
1009 ok(sum_aligns(&aligns
) == 18.0, "RPC sum_aligns\n");
1013 ok(sum_padded(&padded
) == 5, "RPC sum_padded\n");
1018 ok(sum_padded2(padded2
) == 6, "RPC sum_padded2\n");
1023 ok(sum_padded_conf(padded2
, 2) == 6, "RPC sum_padded_conf\n");
1032 ok(sum_bogus(&bogus
) == 12, "RPC sum_bogus\n");
1036 str
= get_filename();
1037 ok(!strcmp(str
, __FILE__
), "get_filename() returned %s instead of %s\n", str
, __FILE__
);
1038 midl_user_free(str
);
1040 x
= echo_ranged_int(0,0,0);
1041 ok(x
== 0, "echo_ranged_int() returned %d instead of 0\n", x
);
1042 x
= echo_ranged_int(10,20,100);
1043 ok(x
== 100, "echo_ranged_int() returned %d instead of 100\n", x
);
1044 x
= echo_ranged_int2(40);
1045 ok(x
== 40, "echo_ranged_int() returned %d instead of 40\n", x
);
1047 if (!old_windows_version
)
1050 get_ranged_enum(&re
);
1052 broken(re
== MAKELONG(re
, 0xdead)), /* Win 8, Win 10 */
1053 "get_ranged_enum() returned %x instead of RE3\n", re
);
1070 ok(square_sun(&su
) == 81.0, "RPC square_sun\n");
1074 ok(square_sun(&su
) == 25.0, "RPC square_sun\n");
1078 ok(square_sun(&su
) == 4.0, "RPC square_sun\n");
1083 ok(square_sun(&su
) == 121.0, "RPC square_sun\n");
1086 eu
.tagged_union
.i
= 7;
1087 ok(square_encu(&eu
) == 49.0, "RPC square_encu\n");
1090 eu
.tagged_union
.f
= 3.0;
1091 ok(square_encu(&eu
) == 9.0, "RPC square_encu\n");
1094 ok(square_unencu(ENCU_I
, &uneu
) == 16.0, "RPC square_unencu\n");
1097 ok(square_unencu(ENCU_F
, &uneu
) == 25.0, "RPC square_unencu\n");
1100 eue
.tagged_union
.i1
= 8;
1101 ok(square_encue(&eue
) == 64.0, "RPC square_encue\n");
1104 eue
.tagged_union
.f2
= 10.0;
1105 ok(square_encue(&eue
) == 100.0, "RPC square_encue\n");
1107 CoInitializeEx(NULL
, COINIT_MULTITHREADED
);
1109 CreateStreamOnHGlobal(NULL
, TRUE
, &ipu
.tagged_union
.stream
);
1111 ref
= IStream_Release(ipu
.tagged_union
.stream
);
1112 ok(!ref
, "got %u refs\n", ref
);
1117 static test_list_t
*
1120 test_list_t
*n
= HeapAlloc(GetProcessHeap(), 0, sizeof *n
);
1126 static test_list_t
*
1127 make_list(test_list_t
*tail
)
1129 test_list_t
*n
= HeapAlloc(GetProcessHeap(), 0, sizeof *n
);
1136 free_list(test_list_t
*list
)
1138 if (list
->t
== TL_LIST
)
1139 free_list(list
->u
.tail
);
1140 HeapFree(GetProcessHeap(), 0, list
);
1144 puint_t_UserSize(ULONG
*flags
, ULONG start
, puint_t
*p
)
1146 return start
+ sizeof(int);
1149 unsigned char * __RPC_USER
1150 puint_t_UserMarshal(ULONG
*flags
, unsigned char *buffer
, puint_t
*p
)
1153 memcpy(buffer
, &n
, sizeof n
);
1154 return buffer
+ sizeof n
;
1157 unsigned char * __RPC_USER
1158 puint_t_UserUnmarshal(ULONG
*flags
, unsigned char *buffer
, puint_t
*p
)
1161 memcpy(&n
, buffer
, sizeof n
);
1162 *p
= HeapAlloc(GetProcessHeap(), 0, 10);
1163 sprintf(*p
, "%d", n
);
1164 return buffer
+ sizeof n
;
1168 puint_t_UserFree(ULONG
*flags
, puint_t
*p
)
1170 HeapFree(GetProcessHeap(), 0, *p
);
1174 us_t_UserSize(ULONG
*flags
, ULONG start
, us_t
*pus
)
1176 return start
+ sizeof(struct wire_us
);
1179 unsigned char * __RPC_USER
1180 us_t_UserMarshal(ULONG
*flags
, unsigned char *buffer
, us_t
*pus
)
1183 wus
.x
= atoi(pus
->x
);
1184 memcpy(buffer
, &wus
, sizeof wus
);
1185 return buffer
+ sizeof wus
;
1188 unsigned char * __RPC_USER
1189 us_t_UserUnmarshal(ULONG
*flags
, unsigned char *buffer
, us_t
*pus
)
1192 memcpy(&wus
, buffer
, sizeof wus
);
1193 pus
->x
= HeapAlloc(GetProcessHeap(), 0, 10);
1194 sprintf(pus
->x
, "%d", wus
.x
);
1195 return buffer
+ sizeof wus
;
1199 us_t_UserFree(ULONG
*flags
, us_t
*pus
)
1201 HeapFree(GetProcessHeap(), 0, pus
->x
);
1205 bstr_t_UserSize(ULONG
*flags
, ULONG start
, bstr_t
*b
)
1207 return start
+ FIELD_OFFSET(user_bstr_t
, data
[(*b
)[-1]]);
1210 unsigned char * __RPC_USER
1211 bstr_t_UserMarshal(ULONG
*flags
, unsigned char *buffer
, bstr_t
*b
)
1213 wire_bstr_t wb
= (wire_bstr_t
) buffer
;
1215 memcpy(&wb
->data
, *b
, wb
->n
* sizeof wb
->data
[0]);
1216 return buffer
+ FIELD_OFFSET(user_bstr_t
, data
[wb
->n
]);
1219 unsigned char * __RPC_USER
1220 bstr_t_UserUnmarshal(ULONG
*flags
, unsigned char *buffer
, bstr_t
*b
)
1222 wire_bstr_t wb
= (wire_bstr_t
) buffer
;
1223 short *data
= HeapAlloc(GetProcessHeap(), 0, (wb
->n
+ 1) * sizeof *data
);
1225 memcpy(&data
[1], wb
->data
, wb
->n
* sizeof data
[1]);
1227 return buffer
+ FIELD_OFFSET(user_bstr_t
, data
[wb
->n
]);
1231 bstr_t_UserFree(ULONG
*flags
, bstr_t
*b
)
1233 HeapFree(GetProcessHeap(), 0, &((*b
)[-1]));
1239 int a
[] = {1, 2, 3, 4};
1241 test_list_t
*list
= make_list(make_list(make_list(null_list())));
1242 test_us_t tus
= {{p1
}};
1246 short bstr_data
[] = { 5, 'H', 'e', 'l', 'l', 'o' };
1247 bstr_t bstr
= &bstr_data
[1], bstr2
;
1254 ok(test_list_length(list
) == 3, "RPC test_list_length\n");
1255 ok(square_puint(p1
) == 121, "RPC square_puint\n");
1257 pus
.ps
= HeapAlloc(GetProcessHeap(), 0, pus
.n
* sizeof pus
.ps
[0]);
1258 pus
.ps
[0] = xstrdup("5");
1259 pus
.ps
[1] = xstrdup("6");
1260 pus
.ps
[2] = xstrdup("7");
1261 pus
.ps
[3] = xstrdup("8");
1262 ok(sum_puints(&pus
) == 26, "RPC sum_puints\n");
1263 HeapFree(GetProcessHeap(), 0, pus
.ps
[0]);
1264 HeapFree(GetProcessHeap(), 0, pus
.ps
[1]);
1265 HeapFree(GetProcessHeap(), 0, pus
.ps
[2]);
1266 HeapFree(GetProcessHeap(), 0, pus
.ps
[3]);
1267 HeapFree(GetProcessHeap(), 0, pus
.ps
);
1269 cpus
.ps
= HeapAlloc(GetProcessHeap(), 0, cpus
.n
* sizeof cpus
.ps
[0]);
1270 cpus
.ps
[0] = xstrdup("5");
1271 cpus
.ps
[1] = xstrdup("6");
1272 cpus
.ps
[2] = xstrdup("7");
1273 cpus
.ps
[3] = xstrdup("8");
1274 ok(sum_cpuints(&cpus
) == 26, "RPC sum_puints\n");
1275 HeapFree(GetProcessHeap(), 0, cpus
.ps
[0]);
1276 HeapFree(GetProcessHeap(), 0, cpus
.ps
[1]);
1277 HeapFree(GetProcessHeap(), 0, cpus
.ps
[2]);
1278 HeapFree(GetProcessHeap(), 0, cpus
.ps
[3]);
1279 HeapFree(GetProcessHeap(), 0, cpus
.ps
);
1280 ok(square_test_us(&tus
) == 121, "RPC square_test_us\n");
1285 ok(sum_parr(pa
) == 6, "RPC sum_parr\n");
1291 ok(sum_pcarr(pa
, 4) == 10, "RPC sum_pcarr\n");
1293 ok(hash_bstr(bstr
) == s_hash_bstr(bstr
), "RPC hash_bstr_data\n");
1296 s_get_a_bstr(&bstr2
);
1297 ok(!lstrcmpW((LPCWSTR
)bstr
, (LPCWSTR
)bstr2
), "bstr mismatch\n");
1298 HeapFree(GetProcessHeap(), 0, bstr
- 1);
1299 HeapFree(GetProcessHeap(), 0, bstr2
- 1);
1303 if (!old_windows_version
)
1307 wstr_array_t namesw
;
1310 name
.name
= buffer
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, name
.size
);
1312 ok(name
.name
== buffer
, "[in,out] pointer should have stayed as %p but instead changed to %p\n", name
.name
, buffer
);
1313 ok(!strcmp(name
.name
, "Jeremy Wh"), "name didn't unmarshall properly, expected \"Jeremy Wh\", but got \"%s\"\n", name
.name
);
1314 HeapFree(GetProcessHeap(), 0, name
.name
);
1318 get_names(&n
, &names
);
1319 ok(n
== 2, "expected 2, got %d\n", n
);
1320 ok(!strcmp(names
[0], "Hello"), "expected Hello, got %s\n", names
[0]);
1321 ok(!strcmp(names
[1], "World!"), "expected World!, got %s\n", names
[1]);
1322 MIDL_user_free(names
[0]);
1323 MIDL_user_free(names
[1]);
1324 MIDL_user_free(names
);
1328 get_namesw(&n
, &namesw
);
1329 ok(n
== 2, "expected 2, got %d\n", n
);
1330 ok(!lstrcmpW(namesw
[0], helloW
), "expected Hello, got %s\n", wine_dbgstr_w(namesw
[0]));
1331 ok(!lstrcmpW(namesw
[1], worldW
), "expected World!, got %s\n", wine_dbgstr_w(namesw
[1]));
1332 MIDL_user_free(namesw
[0]);
1333 MIDL_user_free(namesw
[1]);
1334 MIDL_user_free(namesw
);
1338 ok(sum_pcarr2(4, &pa2
) == 10, "RPC sum_pcarr2\n");
1341 ok(s123
->f1
== 1 && s123
->f2
== 2 && s123
->f3
== 3, "RPC get_s123\n");
1342 MIDL_user_free(s123
);
1344 full_pointer_test(&val
, &val
);
1345 full_pointer_null_test(&val
, NULL
);
1349 check_pyramid_doub_carr(doub_carr_t
*dc
)
1352 for (i
= 0; i
< dc
->n
; ++i
)
1353 for (j
= 0; j
< dc
->a
[i
]->n
; ++j
)
1354 if (dc
->a
[i
]->a
[j
] != j
+ 1)
1360 free_pyramid_doub_carr(doub_carr_t
*dc
)
1363 for (i
= 0; i
< dc
->n
; ++i
)
1364 MIDL_user_free(dc
->a
[i
]);
1373 {{1, 2, 3, 4}, {-1, -3, -5, -7}, {0, 2, 4, 6}},
1374 {{1, -2, 3, -4}, {2, 3, 5, 7}, {-4, -1, -14, 4114}}
1376 int c
[] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
1377 int c2
[] = {10, 100, 200};
1379 vector_t vs
[2] = {{1, -2, 3}, {4, -5, -6}};
1384 int ca
[5] = {1, -2, 3, -4, 5};
1389 numbers_struct_t
*ns
;
1392 if (!old_windows_version
)
1394 const char str1
[25] = "Hello";
1395 ok(cstr_length(str1
, sizeof str1
) == strlen(str1
), "RPC cstr_length\n");
1398 ok(sum_fixed_int_3d(m
) == 4116, "RPC sum_fixed_int_3d\n");
1400 ok(sum_conf_array(c
, 10) == 45, "RPC sum_conf_array\n");
1401 ok(sum_conf_array(&c
[5], 2) == 11, "RPC sum_conf_array\n");
1402 ok(sum_conf_array(&c
[7], 1) == 7, "RPC sum_conf_array\n");
1403 ok(sum_conf_array(&c
[2], 0) == 0, "RPC sum_conf_array\n");
1405 ok(sum_conf_ptr_by_conf_ptr(1, c2
, c
) == 45, "RPC sum_conf_ptr_by_conf_ptr\n");
1406 ok(sum_conf_ptr_by_conf_ptr(3, c2
, c
) == 345, "RPC sum_conf_ptr_by_conf_ptr\n");
1408 ok(sum_conf_ptr_by_conf_ptr(3, c2
, c
) == 300, "RPC sum_conf_ptr_by_conf_ptr\n");
1410 ok(sum_unique_conf_array(ca
, 4) == -2, "RPC sum_unique_conf_array\n");
1411 ok(sum_unique_conf_ptr(ca
, 5) == 3, "RPC sum_unique_conf_array\n");
1412 ok(sum_unique_conf_ptr(NULL
, 10) == 0, "RPC sum_unique_conf_array\n");
1414 get_number_array(c3
, &n
);
1415 ok(n
== 10, "RPC get_num_array\n");
1417 ok(c3
[n
-1] == c
[n
-1], "get_num_array returned wrong value %d @ %d\n",
1419 ok(sum_var_array(c
, 10) == 45, "RPC sum_conf_array\n");
1420 ok(sum_var_array(&c
[5], 2) == 11, "RPC sum_conf_array\n");
1421 ok(sum_var_array(&c
[7], 1) == 7, "RPC sum_conf_array\n");
1422 ok(sum_var_array(&c
[2], 0) == 0, "RPC sum_conf_array\n");
1424 ok(dot_two_vectors(vs
) == -4, "RPC dot_two_vectors\n");
1425 cs
= HeapAlloc(GetProcessHeap(), 0, FIELD_OFFSET(cs_t
, ca
[5]));
1432 ok(sum_cs(cs
) == 1, "RPC sum_cs\n");
1433 HeapFree(GetProcessHeap(), 0, cs
);
1440 ok(sum_cps(&cps
) == 53, "RPC sum_cps\n");
1446 ok(sum_cpsc(&cpsc
) == 6, "RPC sum_cpsc\n");
1451 ok(sum_cpsc(&cpsc
) == 10, "RPC sum_cpsc\n");
1454 ok(get_cpsc(5, &cpsc
) == 45, "RPC sum_cpsc\n");
1455 ok( cpsc
.a
== 10, "RPC get_cpsc %u\n", cpsc
.a
);
1456 for (n
= 0; n
< 10; n
++) ok( cpsc
.ca
[n
] == n
, "RPC get_cpsc[%d] = %d\n", n
, cpsc
.ca
[n
] );
1458 memset( tmp
, 0x33, sizeof(tmp
) );
1460 ok(get_cpsc(4, &cpsc
) == 28, "RPC sum_cpsc\n");
1461 ok( cpsc
.a
== 8, "RPC get_cpsc %u\n", cpsc
.a
);
1462 ok( cpsc
.ca
== tmp
, "RPC get_cpsc %p/%p\n", cpsc
.ca
, tmp
);
1463 for (n
= 0; n
< 8; n
++) ok( cpsc
.ca
[n
] == n
, "RPC get_cpsc[%d] = %d\n", n
, cpsc
.ca
[n
] );
1465 ok(sum_toplev_conf_2n(c
, 3) == 15, "RPC sum_toplev_conf_2n\n");
1466 ok(sum_toplev_conf_cond(c
, 5, 6, 1) == 10, "RPC sum_toplev_conf_cond\n");
1467 ok(sum_toplev_conf_cond(c
, 5, 6, 0) == 15, "RPC sum_toplev_conf_cond\n");
1469 dc
= HeapAlloc(GetProcessHeap(), 0, FIELD_OFFSET(doub_carr_t
, a
[2]));
1471 dc
->a
[0] = HeapAlloc(GetProcessHeap(), 0, FIELD_OFFSET(doub_carr_1_t
, a
[3]));
1476 dc
->a
[1] = HeapAlloc(GetProcessHeap(), 0, FIELD_OFFSET(doub_carr_1_t
, a
[2]));
1480 ok(sum_doub_carr(dc
) == 19, "RPC sum_doub_carr\n");
1481 HeapFree(GetProcessHeap(), 0, dc
->a
[0]);
1482 HeapFree(GetProcessHeap(), 0, dc
->a
[1]);
1483 HeapFree(GetProcessHeap(), 0, dc
);
1486 make_pyramid_doub_carr(4, &dc
);
1487 ok(check_pyramid_doub_carr(dc
), "RPC make_pyramid_doub_carr\n");
1488 free_pyramid_doub_carr(dc
);
1490 ok(sum_L1_norms(2, vs
) == 21, "RPC sum_L1_norms\n");
1492 memset(api
, 0, sizeof(api
));
1493 pi
= HeapAlloc(GetProcessHeap(), 0, sizeof(*pi
));
1496 get_numbers(1, 1, api
);
1497 ok(api
[0].pi
== pi
, "RPC conformant varying array [out] pointer changed from %p to %p\n", pi
, api
[0].pi
);
1498 ok(*api
[0].pi
== 0, "pi unmarshalled incorrectly %d\n", *api
[0].pi
);
1500 if (!old_windows_version
)
1502 ns
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, FIELD_OFFSET(numbers_struct_t
, numbers
[5]));
1505 ns
->numbers
[0].pi
= pi
;
1506 get_numbers_struct(&ns
);
1507 ok(ns
->numbers
[0].pi
== pi
, "RPC conformant varying struct embedded pointer changed from %p to %p\n", pi
, ns
->numbers
[0].pi
);
1508 ok(*ns
->numbers
[0].pi
== 5, "pi unmarshalled incorrectly %d\n", *ns
->numbers
[0].pi
);
1509 HeapFree(GetProcessHeap(), 0, ns
);
1511 HeapFree(GetProcessHeap(), 0, pi
);
1513 pi
= HeapAlloc(GetProcessHeap(), 0, 5 * sizeof(*pi
));
1514 pi
[0] = 3; rpi
[0] = &pi
[0];
1515 pi
[1] = 5; rpi
[1] = &pi
[1];
1516 pi
[2] = -2; rpi
[2] = &pi
[2];
1517 pi
[3] = -1; rpi
[3] = &pi
[3];
1518 pi
[4] = -4; rpi
[4] = &pi
[4];
1519 ok(sum_complex_array(5, rpi
) == 1, "RPC sum_complex_array\n");
1520 HeapFree(GetProcessHeap(), 0, pi
);
1523 void __cdecl
s_authinfo_test(unsigned int protseq
, int secure
)
1525 RPC_BINDING_HANDLE binding
;
1527 ULONG level
, authnsvc
;
1528 RPC_AUTHZ_HANDLE privs
;
1529 unsigned char *principal
;
1531 binding
= I_RpcGetCurrentCallHandle();
1532 ok(binding
!= NULL
, "I_RpcGetCurrentCallHandle returned NULL\n");
1534 level
= authnsvc
= 0xdeadbeef;
1535 privs
= (RPC_AUTHZ_HANDLE
)0xdeadbeef;
1536 principal
= (unsigned char *)0xdeadbeef;
1538 if (secure
|| protseq
== RPC_PROTSEQ_LRPC
)
1540 status
= RpcBindingInqAuthClientA(binding
, &privs
, &principal
, &level
, &authnsvc
, NULL
);
1541 if (status
== RPC_S_CANNOT_SUPPORT
)
1543 win_skip("RpcBindingInqAuthClientA not supported\n");
1546 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
1547 ok(privs
!= (RPC_AUTHZ_HANDLE
)0xdeadbeef, "privs unchanged\n");
1548 ok(principal
!= (unsigned char *)0xdeadbeef, "principal unchanged\n");
1549 if (protseq
!= RPC_PROTSEQ_LRPC
)
1552 ok(principal
!= NULL
, "NULL principal\n");
1554 if (protseq
== RPC_PROTSEQ_LRPC
&& principal
)
1559 len
= WideCharToMultiByte(CP_ACP
, 0, (const WCHAR
*)privs
, -1, NULL
, 0, NULL
, NULL
);
1560 spn
= HeapAlloc( GetProcessHeap(), 0, len
);
1561 WideCharToMultiByte(CP_ACP
, 0, (const WCHAR
*)privs
, -1, spn
, len
, NULL
, NULL
);
1563 ok(!strcmp(domain_and_user
, spn
), "expected %s got %s\n", domain_and_user
, spn
);
1564 HeapFree( GetProcessHeap(), 0, spn
);
1566 ok(level
== RPC_C_AUTHN_LEVEL_PKT_PRIVACY
, "level unchanged\n");
1567 ok(authnsvc
== RPC_C_AUTHN_WINNT
, "authnsvc unchanged\n");
1568 RpcStringFreeA(&principal
);
1570 status
= RpcBindingInqAuthClientA(NULL
, &privs
, &principal
, &level
, &authnsvc
, NULL
);
1571 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
1572 RpcStringFreeA(&principal
);
1574 status
= RpcBindingInqAuthClientExA(NULL
, &privs
, &principal
, &level
, &authnsvc
, NULL
, 0);
1575 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
1576 RpcStringFreeA(&principal
);
1578 status
= RpcImpersonateClient(NULL
);
1579 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
1580 status
= RpcRevertToSelf();
1581 ok(status
== RPC_S_OK
, "expected RPC_S_OK got %u\n", status
);
1586 status
= RpcBindingInqAuthClientA(binding
, &privs
, &principal
, &level
, &authnsvc
, NULL
);
1587 ok(status
== RPC_S_BINDING_HAS_NO_AUTH
, "expected RPC_S_BINDING_HAS_NO_AUTH got %u\n", status
);
1588 ok(privs
== (RPC_AUTHZ_HANDLE
)0xdeadbeef, "got %p\n", privs
);
1589 ok(principal
== (unsigned char *)0xdeadbeef, "got %s\n", principal
);
1590 ok(level
== 0xdeadbeef, "got %u\n", level
);
1591 ok(authnsvc
== 0xdeadbeef, "got %u\n", authnsvc
);
1602 context_handle_test();
1606 set_auth_info(RPC_BINDING_HANDLE handle
)
1609 RPC_SECURITY_QOS qos
;
1612 qos
.Capabilities
= RPC_C_QOS_CAPABILITIES_MUTUAL_AUTH
;
1613 qos
.IdentityTracking
= RPC_C_QOS_IDENTITY_STATIC
;
1614 qos
.ImpersonationType
= RPC_C_IMP_LEVEL_IMPERSONATE
;
1616 status
= pRpcBindingSetAuthInfoExA(handle
, (RPC_CSTR
)domain_and_user
, RPC_C_AUTHN_LEVEL_PKT_PRIVACY
,
1617 RPC_C_AUTHN_WINNT
, NULL
, 0, &qos
);
1618 ok(status
== RPC_S_OK
, "RpcBindingSetAuthInfoExA failed %d\n", status
);
1621 #define test_is_server_listening(a,b) _test_is_server_listening(__LINE__,a,b)
1622 static void _test_is_server_listening(unsigned line
, RPC_BINDING_HANDLE binding
, RPC_STATUS expected_status
)
1625 status
= RpcMgmtIsServerListening(binding
);
1626 ok_(__FILE__
,line
)(status
== expected_status
, "RpcMgmtIsServerListening returned %u, expected %u\n",
1627 status
, expected_status
);
1630 #define test_is_server_listening2(a,b,c) _test_is_server_listening2(__LINE__,a,b,c)
1631 static void _test_is_server_listening2(unsigned line
, RPC_BINDING_HANDLE binding
, RPC_STATUS expected_status
,
1632 RPC_STATUS expected_status2
)
1635 status
= RpcMgmtIsServerListening(binding
);
1636 ok_(__FILE__
,line
)(status
== expected_status
|| status
== expected_status2
,
1637 "RpcMgmtIsServerListening returned %u, expected %u or %u\n",
1638 status
, expected_status
, expected_status2
);
1642 client(const char *test
)
1644 static unsigned char iptcp
[] = "ncacn_ip_tcp";
1645 static unsigned char np
[] = "ncacn_np";
1646 static unsigned char ncalrpc
[] = "ncalrpc";
1647 static unsigned char address
[] = "127.0.0.1";
1648 static unsigned char address_np
[] = "\\\\.";
1649 static unsigned char port
[] = PORT
;
1650 static unsigned char pipe
[] = PIPE
;
1651 static unsigned char guid
[] = "00000000-4114-0704-2301-000000000000";
1653 unsigned char *binding
;
1655 if (strcmp(test
, "tcp_basic") == 0)
1657 ok(RPC_S_OK
== RpcStringBindingComposeA(NULL
, iptcp
, address
, port
, NULL
, &binding
), "RpcStringBindingCompose\n");
1658 ok(RPC_S_OK
== RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
), "RpcBindingFromStringBinding\n");
1661 authinfo_test(RPC_PROTSEQ_TCP
, 0);
1662 test_is_server_listening2(IServer_IfHandle
, RPC_S_OK
, RPC_S_ACCESS_DENIED
);
1664 ok(RPC_S_OK
== RpcStringFreeA(&binding
), "RpcStringFree\n");
1665 ok(RPC_S_OK
== RpcBindingFree(&IServer_IfHandle
), "RpcBindingFree\n");
1667 else if (strcmp(test
, "tcp_secure") == 0)
1669 ok(RPC_S_OK
== RpcStringBindingComposeA(NULL
, iptcp
, address
, port
, NULL
, &binding
), "RpcStringBindingCompose\n");
1670 ok(RPC_S_OK
== RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
), "RpcBindingFromStringBinding\n");
1672 set_auth_info(IServer_IfHandle
);
1673 authinfo_test(RPC_PROTSEQ_TCP
, 1);
1674 test_is_server_listening(IServer_IfHandle
, RPC_S_ACCESS_DENIED
);
1676 ok(RPC_S_OK
== RpcStringFreeA(&binding
), "RpcStringFree\n");
1677 ok(RPC_S_OK
== RpcBindingFree(&IServer_IfHandle
), "RpcBindingFree\n");
1679 else if (strcmp(test
, "ncalrpc_basic") == 0)
1681 ok(RPC_S_OK
== RpcStringBindingComposeA(NULL
, ncalrpc
, NULL
, guid
, NULL
, &binding
), "RpcStringBindingCompose\n");
1682 ok(RPC_S_OK
== RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
), "RpcBindingFromStringBinding\n");
1684 run_tests(); /* can cause RPC_X_BAD_STUB_DATA exception */
1685 authinfo_test(RPC_PROTSEQ_LRPC
, 0);
1686 test_is_server_listening(IServer_IfHandle
, RPC_S_OK
);
1688 ok(RPC_S_OK
== RpcStringFreeA(&binding
), "RpcStringFree\n");
1689 ok(RPC_S_OK
== RpcBindingFree(&IServer_IfHandle
), "RpcBindingFree\n");
1691 else if (strcmp(test
, "ncalrpc_autolisten") == 0)
1693 ok(RPC_S_OK
== RpcStringBindingComposeA(NULL
, ncalrpc
, NULL
, guid
, NULL
, &binding
), "RpcStringBindingCompose\n");
1694 ok(RPC_S_OK
== RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
), "RpcBindingFromStringBinding\n");
1697 authinfo_test(RPC_PROTSEQ_LRPC
, 0);
1699 test_is_server_listening(IServer_IfHandle
, RPC_S_NOT_LISTENING
);
1702 ok(int_return() == INT_CODE
, "RPC int_return\n");
1704 ok(RPC_S_OK
== RpcStringFreeA(&binding
), "RpcStringFree\n");
1705 ok(RPC_S_OK
== RpcBindingFree(&IServer_IfHandle
), "RpcBindingFree\n");
1707 else if (strcmp(test
, "ncalrpc_secure") == 0)
1709 ok(RPC_S_OK
== RpcStringBindingComposeA(NULL
, ncalrpc
, NULL
, guid
, NULL
, &binding
), "RpcStringBindingCompose\n");
1710 ok(RPC_S_OK
== RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
), "RpcBindingFromStringBinding\n");
1712 set_auth_info(IServer_IfHandle
);
1713 authinfo_test(RPC_PROTSEQ_LRPC
, 1);
1714 test_is_server_listening(IServer_IfHandle
, RPC_S_OK
);
1716 ok(RPC_S_OK
== RpcStringFreeA(&binding
), "RpcStringFree\n");
1717 ok(RPC_S_OK
== RpcBindingFree(&IServer_IfHandle
), "RpcBindingFree\n");
1719 else if (strcmp(test
, "np_basic") == 0)
1721 ok(RPC_S_OK
== RpcStringBindingComposeA(NULL
, np
, address_np
, pipe
, NULL
, &binding
), "RpcStringBindingCompose\n");
1722 ok(RPC_S_OK
== RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
), "RpcBindingFromStringBinding\n");
1724 test_is_server_listening(IServer_IfHandle
, RPC_S_OK
);
1726 authinfo_test(RPC_PROTSEQ_NMP
, 0);
1727 test_is_server_listening(IServer_IfHandle
, RPC_S_OK
);
1729 test_is_server_listening(IServer_IfHandle
, RPC_S_NOT_LISTENING
);
1731 ok(RPC_S_OK
== RpcStringFreeA(&binding
), "RpcStringFree\n");
1732 ok(RPC_S_OK
== RpcBindingFree(&IServer_IfHandle
), "RpcBindingFree\n");
1739 static unsigned char iptcp
[] = "ncacn_ip_tcp";
1740 static unsigned char port
[] = PORT
;
1741 static unsigned char np
[] = "ncacn_np";
1742 static unsigned char pipe
[] = PIPE
;
1743 static unsigned char ncalrpc
[] = "ncalrpc";
1744 static unsigned char guid
[] = "00000000-4114-0704-2301-000000000000";
1745 RPC_STATUS status
, iptcp_status
, np_status
, ncalrpc_status
;
1748 /* needed for tests involving interface pointers */
1749 CoInitializeEx(NULL
, COINIT_MULTITHREADED
);
1751 iptcp_status
= RpcServerUseProtseqEpA(iptcp
, 20, port
, NULL
);
1752 ok(iptcp_status
== RPC_S_OK
, "RpcServerUseProtseqEp(ncacn_ip_tcp) failed with status %d\n", iptcp_status
);
1754 ncalrpc_status
= RpcServerUseProtseqEpA(ncalrpc
, 0, guid
, NULL
);
1755 ok(ncalrpc_status
== RPC_S_OK
, "RpcServerUseProtseqEp(ncalrpc) failed with status %d\n", ncalrpc_status
);
1757 np_status
= RpcServerUseProtseqEpA(np
, 0, pipe
, NULL
);
1758 if (np_status
== RPC_S_PROTSEQ_NOT_SUPPORTED
)
1759 skip("Protocol sequence ncacn_np is not supported\n");
1761 ok(np_status
== RPC_S_OK
, "RpcServerUseProtseqEp(ncacn_np) failed with status %d\n", np_status
);
1763 if (pRpcServerRegisterIfEx
)
1765 trace("Using RpcServerRegisterIfEx\n");
1766 status
= pRpcServerRegisterIfEx(s_IServer_v0_0_s_ifspec
, NULL
, NULL
,
1767 RPC_IF_ALLOW_CALLBACKS_WITH_NO_AUTH
,
1768 RPC_C_LISTEN_MAX_CALLS_DEFAULT
, NULL
);
1771 status
= RpcServerRegisterIf(s_IServer_v0_0_s_ifspec
, NULL
, NULL
);
1772 ok(status
== RPC_S_OK
, "RpcServerRegisterIf failed with status %d\n", status
);
1773 test_is_server_listening(NULL
, RPC_S_NOT_LISTENING
);
1774 status
= RpcServerListen(1, 20, TRUE
);
1775 ok(status
== RPC_S_OK
, "RpcServerListen failed with status %d\n", status
);
1776 test_is_server_listening(NULL
, RPC_S_OK
);
1777 stop_event
= CreateEventW(NULL
, FALSE
, FALSE
, NULL
);
1778 ok(stop_event
!= NULL
, "CreateEvent failed with error %d\n", GetLastError());
1780 if (iptcp_status
== RPC_S_OK
)
1781 run_client("tcp_basic");
1783 skip("tcp tests skipped due to earlier failure\n");
1785 if (ncalrpc_status
== RPC_S_OK
)
1787 run_client("ncalrpc_basic");
1789 /* we don't need to register RPC_C_AUTHN_WINNT for ncalrpc */
1790 run_client("ncalrpc_secure");
1793 skip("lrpc tests skipped due to earlier failure\n");
1795 if (np_status
== RPC_S_OK
)
1796 run_client("np_basic");
1799 skip("np_basic tests skipped due to earlier failure\n");
1800 /* np client is what signals stop_event, so bail out if we didn't run do it */
1804 ret
= WaitForSingleObject(stop_event
, 1000);
1805 ok(WAIT_OBJECT_0
== ret
, "WaitForSingleObject\n");
1806 /* if the stop event didn't fire then RpcMgmtWaitServerListen will wait
1807 * forever, so don't bother calling it in this case */
1808 if (ret
== WAIT_OBJECT_0
)
1810 status
= RpcMgmtWaitServerListen();
1811 ok(status
== RPC_S_OK
, "RpcMgmtWaitServerListening failed with status %d\n", status
);
1814 CloseHandle(stop_event
);
1817 if (pRpcServerRegisterIfEx
)
1819 status
= pRpcServerRegisterIfEx(s_IServer_v0_0_s_ifspec
, NULL
, NULL
,
1820 RPC_IF_ALLOW_CALLBACKS_WITH_NO_AUTH
| RPC_IF_AUTOLISTEN
,
1821 RPC_C_LISTEN_MAX_CALLS_DEFAULT
, NULL
);
1822 ok(status
== RPC_S_OK
, "RpcServerRegisterIf() failed: %u\n", status
);
1824 run_client("ncalrpc_autolisten");
1826 status
= RpcServerUnregisterIf(s_IServer_v0_0_s_ifspec
, NULL
, TRUE
);
1827 ok(status
== RPC_S_OK
, "RpcServerUnregisterIf() failed: %u\n", status
);
1833 static DWORD WINAPI
listen_test_client_thread(void *binding
)
1837 status
= RpcBindingFromStringBindingA(binding
, &IServer_IfHandle
);
1838 ok(status
== RPC_S_OK
, "RpcBindingFromStringBinding\n");
1840 test_is_server_listening(IServer_IfHandle
, RPC_S_OK
);
1844 status
= RpcBindingFree(&IServer_IfHandle
);
1845 ok(status
== RPC_S_OK
, "RpcBindingFree\n");
1849 static DWORD WINAPI
wait_listen_proc(void *arg
)
1854 status
= RpcMgmtWaitServerListen();
1855 ok(status
== RPC_S_OK
, "RpcMgmtWaitServerListening failed with status %d\n", status
);
1861 static void test_stop_wait_for_call(unsigned char *binding
)
1863 HANDLE client_thread
, wait_listen_thread
;
1867 status
= RpcServerListen(1, 20, TRUE
);
1868 ok(status
== RPC_S_OK
, "RpcServerListen failed with status %d\n", status
);
1869 test_is_server_listening(NULL
, RPC_S_OK
);
1871 stop_wait_event
= CreateEventW(NULL
, FALSE
, FALSE
, NULL
);
1872 ok(stop_wait_event
!= NULL
, "CreateEvent failed with error %d\n", GetLastError());
1873 stop_event
= CreateEventW(NULL
, FALSE
, FALSE
, NULL
);
1874 ok(stop_event
!= NULL
, "CreateEvent failed with error %d\n", GetLastError());
1876 wait_listen_thread
= CreateThread(NULL
, 0, wait_listen_proc
, 0, 0, NULL
);
1877 ok(wait_listen_thread
!= NULL
, "CreateThread failed\n");
1879 client_thread
= CreateThread(NULL
, 0, listen_test_client_thread
, binding
, 0, NULL
);
1880 ok(client_thread
!= NULL
, "CreateThread failed\n");
1881 CloseHandle(client_thread
);
1883 ret
= WaitForSingleObject(stop_event
, 10000);
1884 ok(WAIT_OBJECT_0
== ret
, "WaitForSingleObject\n");
1886 status
= RpcMgmtStopServerListening(NULL
);
1887 ok(status
== RPC_S_OK
, "RpcMgmtStopServerListening\n");
1888 test_is_server_listening(NULL
, RPC_S_NOT_LISTENING
);
1890 ret
= WaitForSingleObject(wait_listen_thread
, 500);
1891 ok(WAIT_TIMEOUT
== ret
, "WaitForSingleObject\n");
1893 SetEvent(stop_wait_event
);
1895 ret
= WaitForSingleObject(wait_listen_thread
, 10000);
1896 ok(WAIT_OBJECT_0
== ret
, "WaitForSingleObject returned %u\n", ret
);
1898 CloseHandle(wait_listen_thread
);
1900 CloseHandle(stop_wait_event
);
1901 stop_wait_event
= NULL
;
1902 CloseHandle(stop_event
);
1906 static void test_server_listening(void)
1908 static unsigned char np
[] = "ncacn_np";
1909 static unsigned char address_np
[] = "\\\\.";
1910 static unsigned char pipe
[] = PIPE
"listen_test";
1911 static unsigned char ncalrpc
[] = "ncalrpc";
1912 static unsigned char guid
[] = "00000000-4114-0704-2302-000000000000";
1913 unsigned char *binding
;
1916 status
= RpcServerUseProtseqEpA(np
, 0, pipe
, NULL
);
1917 ok(status
== RPC_S_OK
, "RpcServerUseProtseqEp(ncacn_np) failed with status %d\n", status
);
1919 status
= RpcServerRegisterIf(s_IServer_v0_0_s_ifspec
, NULL
, NULL
);
1920 ok(status
== RPC_S_OK
, "RpcServerRegisterIf failed with status %d\n", status
);
1922 test_is_server_listening(NULL
, RPC_S_NOT_LISTENING
);
1923 status
= RpcServerListen(1, 20, TRUE
);
1924 ok(status
== RPC_S_OK
, "RpcServerListen failed with status %d\n", status
);
1925 test_is_server_listening(NULL
, RPC_S_OK
);
1927 status
= RpcServerListen(1, 20, TRUE
);
1928 ok(status
== RPC_S_ALREADY_LISTENING
, "RpcServerListen failed with status %d\n", status
);
1930 status
= RpcMgmtStopServerListening(NULL
);
1931 ok(status
== RPC_S_OK
, "RpcMgmtStopServerListening\n");
1932 test_is_server_listening(NULL
, RPC_S_NOT_LISTENING
);
1934 status
= RpcMgmtWaitServerListen();
1935 ok(status
== RPC_S_OK
, "RpcMgmtWaitServerListening failed with status %d\n", status
);
1937 status
= RpcMgmtWaitServerListen();
1938 ok(status
== RPC_S_NOT_LISTENING
, "RpcMgmtWaitServerListening failed with status %d\n", status
);
1940 /* test that server stop waits for a call in progress */
1941 status
= RpcStringBindingComposeA(NULL
, np
, address_np
, pipe
, NULL
, &binding
);
1942 ok(status
== RPC_S_OK
, "RpcStringBindingCompose\n");
1944 test_stop_wait_for_call(binding
);
1946 status
= RpcStringFreeA(&binding
);
1947 ok(status
== RPC_S_OK
, "RpcStringFree\n");
1949 /* repeat the test using ncalrpc */
1950 status
= RpcServerUseProtseqEpA(ncalrpc
, 0, guid
, NULL
);
1951 ok(status
== RPC_S_OK
, "RpcServerUseProtseqEp(ncalrpc) failed with status %d\n", status
);
1953 status
= RpcStringBindingComposeA(NULL
, ncalrpc
, NULL
, guid
, NULL
, &binding
);
1954 ok(status
== RPC_S_OK
, "RpcStringBindingCompose\n");
1956 test_stop_wait_for_call(binding
);
1958 status
= RpcStringFreeA(&binding
);
1959 ok(status
== RPC_S_OK
, "RpcStringFree\n");
1962 static BOOL
is_process_elevated(void)
1965 if (OpenProcessToken( GetCurrentProcess(), TOKEN_QUERY
, &token
))
1967 TOKEN_ELEVATION_TYPE type
;
1971 ret
= GetTokenInformation( token
, TokenElevationType
, &type
, sizeof(type
), &size
);
1972 CloseHandle( token
);
1973 return (ret
&& type
== TokenElevationTypeFull
);
1978 static BOOL
is_firewall_enabled(void)
1981 INetFwMgr
*mgr
= NULL
;
1982 INetFwPolicy
*policy
= NULL
;
1983 INetFwProfile
*profile
= NULL
;
1984 VARIANT_BOOL enabled
= VARIANT_FALSE
;
1986 init
= CoInitializeEx( 0, COINIT_APARTMENTTHREADED
);
1988 hr
= CoCreateInstance( &CLSID_NetFwMgr
, NULL
, CLSCTX_INPROC_SERVER
, &IID_INetFwMgr
,
1990 ok( hr
== S_OK
, "got %08x\n", hr
);
1991 if (hr
!= S_OK
) goto done
;
1993 hr
= INetFwMgr_get_LocalPolicy( mgr
, &policy
);
1994 ok( hr
== S_OK
, "got %08x\n", hr
);
1995 if (hr
!= S_OK
) goto done
;
1997 hr
= INetFwPolicy_get_CurrentProfile( policy
, &profile
);
1998 if (hr
!= S_OK
) goto done
;
2000 hr
= INetFwProfile_get_FirewallEnabled( profile
, &enabled
);
2001 ok( hr
== S_OK
, "got %08x\n", hr
);
2004 if (policy
) INetFwPolicy_Release( policy
);
2005 if (profile
) INetFwProfile_Release( profile
);
2006 if (mgr
) INetFwMgr_Release( mgr
);
2007 if (SUCCEEDED( init
)) CoUninitialize();
2008 return (enabled
== VARIANT_TRUE
);
2017 static HRESULT
set_firewall( enum firewall_op op
)
2019 static const WCHAR testW
[] = {'r','p','c','r','t','4','_','t','e','s','t',0};
2021 INetFwMgr
*mgr
= NULL
;
2022 INetFwPolicy
*policy
= NULL
;
2023 INetFwProfile
*profile
= NULL
;
2024 INetFwAuthorizedApplication
*app
= NULL
;
2025 INetFwAuthorizedApplications
*apps
= NULL
;
2026 BSTR name
, image
= SysAllocStringLen( NULL
, MAX_PATH
);
2028 if (!GetModuleFileNameW( NULL
, image
, MAX_PATH
))
2030 SysFreeString( image
);
2033 init
= CoInitializeEx( 0, COINIT_APARTMENTTHREADED
);
2035 hr
= CoCreateInstance( &CLSID_NetFwMgr
, NULL
, CLSCTX_INPROC_SERVER
, &IID_INetFwMgr
,
2037 ok( hr
== S_OK
, "got %08x\n", hr
);
2038 if (hr
!= S_OK
) goto done
;
2040 hr
= INetFwMgr_get_LocalPolicy( mgr
, &policy
);
2041 ok( hr
== S_OK
, "got %08x\n", hr
);
2042 if (hr
!= S_OK
) goto done
;
2044 hr
= INetFwPolicy_get_CurrentProfile( policy
, &profile
);
2045 if (hr
!= S_OK
) goto done
;
2047 hr
= INetFwProfile_get_AuthorizedApplications( profile
, &apps
);
2048 ok( hr
== S_OK
, "got %08x\n", hr
);
2049 if (hr
!= S_OK
) goto done
;
2051 hr
= CoCreateInstance( &CLSID_NetFwAuthorizedApplication
, NULL
, CLSCTX_INPROC_SERVER
,
2052 &IID_INetFwAuthorizedApplication
, (void **)&app
);
2053 ok( hr
== S_OK
, "got %08x\n", hr
);
2054 if (hr
!= S_OK
) goto done
;
2056 hr
= INetFwAuthorizedApplication_put_ProcessImageFileName( app
, image
);
2057 if (hr
!= S_OK
) goto done
;
2059 name
= SysAllocString( testW
);
2060 hr
= INetFwAuthorizedApplication_put_Name( app
, name
);
2061 SysFreeString( name
);
2062 ok( hr
== S_OK
, "got %08x\n", hr
);
2063 if (hr
!= S_OK
) goto done
;
2066 hr
= INetFwAuthorizedApplications_Add( apps
, app
);
2067 else if (op
== APP_REMOVE
)
2068 hr
= INetFwAuthorizedApplications_Remove( apps
, image
);
2073 if (app
) INetFwAuthorizedApplication_Release( app
);
2074 if (apps
) INetFwAuthorizedApplications_Release( apps
);
2075 if (policy
) INetFwPolicy_Release( policy
);
2076 if (profile
) INetFwProfile_Release( profile
);
2077 if (mgr
) INetFwMgr_Release( mgr
);
2078 if (SUCCEEDED( init
)) CoUninitialize();
2079 SysFreeString( image
);
2088 BOOL firewall_enabled
= is_firewall_enabled();
2090 InitFunctionPointers();
2092 if (firewall_enabled
&& !is_process_elevated())
2094 trace("no privileges, skipping tests to avoid firewall dialog\n");
2098 ok(!GetUserNameExA(NameSamCompatible
, NULL
, &size
), "GetUserNameExA\n");
2099 domain_and_user
= HeapAlloc(GetProcessHeap(), 0, size
);
2100 ok(GetUserNameExA(NameSamCompatible
, domain_and_user
, &size
), "GetUserNameExA\n");
2102 argc
= winetest_get_mainargs(&argv
);
2113 trace("Exception %d\n", RpcExceptionCode());
2119 test_server_listening();
2123 if (firewall_enabled
)
2125 HRESULT hr
= set_firewall(APP_ADD
);
2128 skip("can't authorize app in firewall %08x\n", hr
);
2129 HeapFree(GetProcessHeap(), 0, domain_and_user
);
2134 run_client("test listen");
2135 if (firewall_enabled
) set_firewall(APP_REMOVE
);
2138 HeapFree(GetProcessHeap(), 0, domain_and_user
);