Aster/Tests/err.comm

   1
   2 # Test pour vérifier qu'une commande dont le concept
   3 # produit est nommé sansnom est considérée comme invalide
   4 #plusieurs commandes : PROC, MACRO, OPER
   5
   6 DEBUT();
   7
   8 MA=LIRE_MAILLAGE();
   9
  10 kk=DEFI_MATERIAU(ELAS=_F(E=56.24,
  11                          NU=0.3,),);
  12
  13 uu=DEFI_MATERIAU(ELAS=_F(E=56.24,
  14                          NU=0.3,),);
  15
  16 SD_4=DEFI_MATERIAU(ELAS=_F(E=56.24,
  17                            NU=0.3,),);
  18
  19 sansnom=AFFE_CHAR_CINE(MODELE=None,);
  20
  21 MACR_ADAP_MAIL(ADAPTATION=_F(LIBRE='RAFFINEMENT',
  22                              MAILLAGE_N=MA,
  23                              MAILLAGE_NP1=CO('MAA'),
  24                              RESULTAT_N=None,
  25                              INDICATEUR=None,
  26                              NOM_CMP_INDICA=None,
  27                              CRIT_RAFF_ABS=1.0,),);
  28
  29 MACR_ADAP_MAIL(ADAPTATION=_F(LIBRE='RAFFINEMENT',
  30                              MAILLAGE_N=MA,
  31                              MAILLAGE_NP1=MAA,
  32                              RESULTAT_N=None,
  33                              INDICATEUR=None,
  34                              NOM_CMP_INDICA=None,
  35                              CRIT_RAFF_ABS=1.0,),);
  36
  37 PRE_CHAR_IDEAS(MODELE=None,);
  38
  39 FIN();