aboutsummaryrefslogblamecommitdiffstats
path: root/lib/compiler/test/compilation_SUITE_data/otp_5632.erl
blob: ebf8e47ca20275c22fc247f5648eb5770a66a45b (plain) (tree)





































































































































































































































                                                                                            
%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 2005-2009. All Rights Reserved.
%% 
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%% 
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%% 
%% %CopyrightEnd%
%%
-module(otp_5632).
-export([?MODULE/0]).
-export([pstnproxy_add_headers/2,macosx_workaround/0,fast_cut/3,test/1,test2/1,
	 create_int_jumper_cables/1]).

-import(lists, [foldl/3,last/1,member/2,reverse/1,reverse/2,seq/2,sort/1]).

?MODULE() ->
    ok.

-record(request, {
	  header
	 }).


-record(siporigin, {
	  proto
	 }).


%% Test a problem in beam_jump.erl.
pstnproxy_add_headers(Request, Origin) when is_record(Request, request),
                                            is_record(Origin, siporigin) ->
    NewHeaders1 = Request#request.header,
    NewHeaders2 =
        case (Origin#siporigin.proto == tls) or (Origin#siporigin.proto == tls6) of
            true ->
		keylist:delete("X-Foo2", NewHeaders1);
	    false ->
                keylist:delete("X-Foo2", NewHeaders1)
        end,
    NewHeaders3 =
      case (Origin#siporigin.proto == tls) or (Origin#siporigin.proto == tls6) of
          true ->
              keylist:delete("X-Foo3", NewHeaders2);
          false ->
              keylist:delete("X-Foo3", NewHeaders2)
      end,
    Request#request{header = NewHeaders3}.

%% Test a problem in beam_validator.erl.
macosx_workaround() ->
    try 1.0/zero()
    catch
	error:_ -> ok
    end.

zero() -> 0.0.

-record(we, {id,
             perm = 0,
             name,
             es,
             fs,
             he,
             vc,
             vp,
             mat = default,
             next_id,
             mode,
             mirror = none,
             light = none,
             has_shape = true}).

-record(edge, {vs,
               ve,
               a = none,
               b = none,
               lf,
               rf,
               ltpr,
               ltsu,
               rtpr,
               rtsu}).


fast_cut(Edge,Pos0,We0) ->
    {NewEdge = NewV,We} = wings_we:new_ids(1,We0),
    #we{es = Etab0,
        vc = Vct0,
        vp = Vtab0,
        he = Htab0} = We,
    Template = gb_trees:get(Edge,Etab0),
    #edge{vs = Vstart,
          ve = Vend,
          a = ACol,
          b = BCol,
          lf = Lf,
          rf = Rf,
          ltpr = EdgeA,
          rtsu = EdgeB,
          rtpr = NextBCol} = Template,
    VendPos = gb_trees:get(Vend,Vtab0),
    Vct1 = gb_trees:update(Vend,NewEdge,Vct0),
    VstartPos = wings_vertex:pos(Vstart,Vtab0),
    if
        Pos0 =:= default ->
            NewVPos0 = e3d_vec:average([VstartPos,VendPos]);
        true ->
            NewVPos0 = Pos0
    end,
    NewVPos = wings_util:share(NewVPos0),
    Vct = gb_trees:insert(NewV,NewEdge,Vct1),
    Vtab = gb_trees:insert(NewV,NewVPos,Vtab0),
    AColOther = ?MODULE:get_vtx_color(EdgeA,Lf,Etab0),
    BColOther = ?MODULE:get_vtx_color(NextBCol,Rf,Etab0),
    Weight = if
                 Pos0 == default ->
                     0.500000;
                 true ->
                     ADist = e3d_vec:dist(Pos0,VstartPos),
                     BDist = e3d_vec:dist(Pos0,VendPos),
                     try
                         ADist / (ADist + BDist)
                     catch
                         error:badarith ->
                             0.500000
                     end
             end,
    NewColA = wings_color:mix(Weight,AColOther,ACol),
    NewColB = wings_color:mix(Weight,BCol,BColOther),
    NewEdgeRec = Template#edge{vs = NewV,
                               a = NewColA,
                               ltsu = Edge,
                               rtpr = Edge},
    Etab1 = gb_trees:insert(NewEdge,NewEdgeRec,Etab0),
    Etab2 = ?MODULE:patch_edge(EdgeA,NewEdge,Edge,Etab1),
    Etab3 = ?MODULE:patch_edge(EdgeB,NewEdge,Edge,Etab2),
    EdgeRec = Template#edge{ve = NewV,
                            b = NewColB,
                            rtsu = NewEdge,
                            ltpr = NewEdge},
    Etab = gb_trees:update(Edge,EdgeRec,Etab3),
    Htab = case gb_sets:is_member(Edge,Htab0) of
               false ->
                   Htab0;
               true ->
                   gb_sets:insert(NewEdge,Htab0)
           end,
    {We#we{es = Etab,
           vc = Vct,
           vp = Vtab,
           he = Htab},NewV}.

%% A problem in beam_bool.

-record(a, {a,b,c}).

test(As) ->
     case As of
     A when A#a.b == []; A#a.b == undefined ->
         true;
     _ ->
         false
     end.

test2(As) ->
     case As of
     A when A#a.b == {a,b,c}; A#a.b == undefined ->
         true;
     _ ->
         false
     end.

%% Record updating problems.

-record(int_jumper_cable, {id,
                           connectionFieldRef,
                           aiuPlugInUnitRef,
                           connFieldConnector,
                           aiuConnector,
                           dlAttenuation = 1,
                           ulAttenuation = 1,
                           electricalDlDelay = 100,
                           electricalUlDelay = 100,
                           optionals = []}).

create_int_jumper_cables(_Config) ->
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},637}),
    ct:comment("Create IntJumperCable MO"),
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},639}),
    Parent = "ManagedElement=1,Equipment=1",
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},641}),
    I1 = #int_jumper_cable{id = 1,
                           connectionFieldRef = Parent ++ ",ConnectionField=1",
                           aiuPlugInUnitRef = Parent ++ ",Subrack=2,Slot=6,PlugInUnit=1",
                           connFieldConnector = "J1",
                           aiuConnector = 1},
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},650}),
    I2 = I1#int_jumper_cable{id = 2,
                             connFieldConnector = "H1",
                             aiuConnector = 2},
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},657}),
    I3 = I1#int_jumper_cable{id = 3,
                             aiuPlugInUnitRef = Parent ++ ",Subrack=2,Slot=9,PlugInUnit=1",
                             connFieldConnector = "J2"},
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},663}),
    I4 = I3#int_jumper_cable{id = 4,
                             connFieldConnector = "H2",
                             aiuConnector = 2},
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},670}),
    I5 = I1#int_jumper_cable{id = 5,
                             aiuPlugInUnitRef = Parent ++ ",Subrack=2,Slot=12,PlugInUnit=1",
                             connFieldConnector = "J3"},
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},677}),
    I6 = I5#int_jumper_cable{id = 6,
                             connFieldConnector = "H3",
                             aiuConnector = 2},
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},684}),
    [_MO1,_MO2,_MO3,_MO4,_MO5,_MO6] = mub_util:create(mp_mub,Parent,[I1,I2,I3,I4,I5,I6]),
    ct_line:line({{ccl_setup_SUITE,create_int_jumper_cables},686}),
    ok.